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Many  of  the  existing  data  base  management  systems  have  been  developed 
for  large  applications  such  as  big  business.  However  other  applications 
such  as  small  businesses  can  also  benefit  from  the  managerial  information 
which  can  be  provided  by  a  computer  data  base.  This  thesis  develops  a 
stand-alone  data  base  management  system  using  a  microcomputer  with  floppy 
disk  auxiliary  storage  and  the  UCSD  Pascal  software  package.  This  system 
has  the  capability  to  create,  update,  delete  and  insert  information,  and 
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to  respond  to  user  inquiries.  Because  of  the  limited  storage  capacity 
and  relatively  slow  access  speeds  of  floppy  disks,  the  system  will 
only  satisfy  small  applications.  However,  the  advent  of  compatible 
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Many  of  the  existing  data  base  management  systems  have 
been  developed  for  large  applications  such  as^  big  business'. 
However  other  applications  such  as  small  businesses  can  also 
benefit,  from  ♦he  managerial  information  which  can  be  provided 
by  a  computer  data  base.  This  thesis  develops  a  stand-alone 
data  base  management  system  using  a  microcomputer  with  floppy 
disk  auxiliary  storage  and  the  UCSE  Pascal  software  package. 
This  system  has  the  capability  to  create,  update,  delete  and 
insert  information .  and  to  respond  to  user  inouiries.  Because 
of  the  limited  storage  capacity  and  relatively  slow  access 
speeds  of  floppy  disks,  the  system  will  only  satisfy  small 
applications.  However,  the  advent  of  compatible  hard  disk 
systems  for  microcomputers  will  enable  the  system  tc  be  used 


for  signi ficantly  larger  applications. 
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I.  INTH0DUCT1QN 


It  might  be  said  that  this  is  the  data  base  era  in 
computer  technology.  Data  base  processing  has  grown  in 
significance  among  computer  scientists  and  also  among 
managers  of  organizations.  The  capacities  of  on-line  data 
files  have  grown  rapidly.  »s  rapacities  go  up.  the  cost  per 
bit  of  storage  comes  down.  This  situation  activates  data  base 
designers  to  continue  their  efforts  to  obtain  better  data 
base  systems. 

•n  imoorta-t  consideration  in  data  base  design  is  to 
store  data  in  such  a  way  that  it  can  be  used  for  a  wide 
variety  of  applications .  3y  doing  so.  the  data  can  be  changed 
Quickly  and  easily.  ?o  achieve  the  flexibility  of  data  usage 
that  is  essential  in  most  c^m-roTcial  situations,  two  aspects 
of  data  base  design  are  important.  ?irst.  the  -data  should  he 
independent  of  the  programs  which  use  it,  so  that  it  can  be 
modified  without  the  programs  being  changed  (data 
independence } .  Second,  it  should  be  possible  to  interrogate 
and  search  the  data  base  without  *he  lengthy  operation  of 
writing  programs  ir  conventional  programming  languages.  ?or 
this  purpose,  data  base  ouery  languages  are  used-  If  the 
structure  of  the  -data  base  is  independent  of  the  program  that 
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ressors  tve  UC59  Pascal  software  package  was  chosen  as  the 
nnierlyis2  software  support  system  f?.ef.lj. 


The  -fata  is  stored  in  the  data  base  in  the  form  of 
records,  he^ce.  a  special  program  was  developed  to  be  used  to 
create  a  new  data  base. 


The  data  base  system  storage  structure  uses  the 
separation  technioue.  This  technioue  consists  cf  storing  the 
data  separately  t?om  the  relationships.  The  advantages  of 
this  approach  are  faster  data  retrieval,  more  complete  data 
independence  and  economical  use  of  storaae  f?.ef  .2]  -  'icre 
details  **sn  be  <*»er  ir  chaotot>  6. 


The  data  base  management  s vs t developed  ir.  this  thesis 
is  a  miniature  version  of  data  base  manaee^ert  systems 
typically  available  o**  larger  sys*e^s. 


tases.  ?er  s"*all  systems.  these  -lata  base  management  systems 
are  *»c  expensive  +»  i-ple^-e^t. 

Organizations  within  the  Indonesian  *rnei  Tcrces 
represer*  e^a^-pl^s  **t  rr^a^i’etirns  which  need  smaller  data 
base  Tanaeevent  systems  with  reasonaole  operation  end 
-rair *.?-£' ?e  c^ts.  There  aro  ra^y  lower  level  orffarizations 
which  reed  to  provide  fast  information  to  the  higher 
headccart 3rs .  They  need  to  he  e colored  with  local 
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computerized  systems  which  can  provide  fast  and  accurate 
information.  "°j  xaintainira  data  in  a  data  base  system, 
accurate  and  uo— to— date  inf ''r-ati ?**•  can  be  ^aintaired . 
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?.  MI  CRO^O^PUT^R  OVvRVIFW 

1-  I 

In  general,  the  term  "microcomputer"  can  he  defined 
as  a  stored  program  computer  comprising  memory  and 
input/output  circuits  together  with  a  microprocessor  CPU 
[Re?.*! .  Microcomputer s  have  attracted  manv  people  because  of 
several  advantages  over  larger  computers.  First, 
microcomputers  can  he  used  for  a  wide  range  of  specific 
applications.  Second,  microcomputers  are  powerful,  reliable, 
and  ire-npe^sive .  Tvey  can  operate  effectively  in  environments 
where  older  computers  would  fail.  Most  of f-th°-sh°lf 
microcomputers  operate  at  room  temperature  and  reouire  no 
special  air  conditioning  or  power  supplies. 

2.  P?rs p?ctive  Cn  Microcomputers 

The  major  disadvantages  of  existing  data  base  systems 
are  initial  cost  and  high  operating  costs.  The  use  of  a 
microcomputer  system  should  he  considered  as  an  alternative, 
obtaining  a  data  base  system  of  smaller  size,  but  with  lover 
operating  costs.  ?ecent  developments  in  microcomputer 
technology  have  already  provided  them  with  the  hardware 
capabilities  to  retrieve  a^d  update  information  For 
"'icrocomputers  which  have  no  such  hardware  the  capabilities 
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ca-  be  i-'plpmen ted  in  softvar°.  Without  these  capabilities 
the  development  of  a  data  base  system  is  hardly  possible. 
Floppy  di«;V?  a "urgently  the  principle  auxiliary  st*r age 
devices  used  with  microcomputer  systems.  Their  physical 
orgar.i rat ior  is  similar  to  hard  disks,  however,  their  storage 
capacities  and  access  soeeds  are  significantly  less. 

The  use  of  a  micro,'omPuter  as  a  stand-alone  da  ta  base 
maragemer ♦  sy«te-  with  an  F^gli sh-ori ented  query  language, 
and  UCSP  Pascal  as  supporting  software,  seems  feasible. 


C.  UCSD  ?.4S C  SL 

UfST  Pascal  was  chosen  as  the  underlying  software  support 
system  fo**  tv?  fallowing  reasons. 

1.  The  software  includes  such  features  as  a 
scree^-c^ief ted  text  editor,  a  useful  file  system,  and 
a  library  manager.  The  system  supports  interactive 
programs. 

2.  The  UCSr  Pascal  compiler  is  a  one-pass  recursive 
descert  co^pilet*.  Tt  ge^e-ates  code  files  to  run 
dir°ctly  rn  the  Pascal  interpretive  machine.  When 
compile-time  errors  occ”r,  the  user  may  optionally 
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reform  directly  to  the  sc^eer-orierted  editor  with  the 
cursor  at  the  oosition  in  the  file  where  the  error  was 
d  et  ec'ed . 

Segment  ^ocedure  allows  the  user  to  partition  a  large 
program  into  several  segmerts.  Each  segment  is  compiled 
separately.  The  Linger  oroffram  is  then  used  to  lic.-c  the 
separate  se/?'T,ert5  together  *o  produce  one  large  cede 
file.  This  procedure  enables  large  programs  to  be  run 
i*  ♦'he  "elaMvely  small  rain  memory. 

4.  The  S^TU?  program  enables  the  users  to  reconfigure  the 
UCSD  Pascal  operating  system  to  suit  his  or  her 
ecuipment  or  taste.  This  is  necessary  when  the  system 
is  used  vi *h  different  te^t^als  or  different  rarhire 
configurations.  STTU?  enables  the  user  to  make  these 
changes  oui c>: v  ard  °asilv. 


Il  l .  qmilM  21 

A.  riTPODUCTION 

The  ten?  "lata  base"  is  still  not  accepted  with  a 
standard  neariT.  However  it  is  to  some  extent  accepted  as 
conveying  a  more  sophisticated  concept  than  the  older  term 
"file".  Confusion  has  arise  over  the  meaning  of  the  data 
base.  Users  tend  to  look  uoon  a  database  as  the  aggregate  of 
data  frof  which  they  can  Take  decisions. 

The  foll^wi-g  deficit i'>T'  nt  a  data  base  is  due  te 
[Hef.Pl  . 

A  data  base  is  a  c o 1 lec * i of  interrelated  ^ata  stored 
together  with  the  ninim??T  redundancy  to  serve  one  or  more 
applications  in  an  optimal  fashion.  The  data  is  stored  so 
that  they  are  independent  of  programs  which  "’ust  use  the 
data.  A  common  and  controlled  approach  is  used  ir.  adding 
new  data  and  in  modifying  and  retrieving  existing  data 
wit.hi”  t'he  data  base." 

Data  processors  have  tried  to  develop  data  bases  without 
realizing  the  magnitude  of  the  task.  In  reality,  most  of  the 
today's  data  bases  serve  a  limited  set  of  applications. 


In  designing  a  lata  base  system  there  are  many. facts  that 
should  be  considered.  The  following  are  among  the  primary 
objectives  of  data  base  organizations. 

1.  It  should  make  applications  development  easier, 
cheaper,  faster,  ar.d  nor?  flexible. 

2.  The  data  should  have  multiple  uses. 

3.  Da*a  irdepeT,der.ce . 

4.  clarity.  ‘'’ase  of  withstanding  what  data  is  available 
to  the  users. 

5.  Tlexitle  usage.  Data  can  be  used  m  flexible  ways 
with  different  access  pa*hs. 

6.  Spontaneous  reouests  for  data  can  be  handled  easily 
by  mea-s  of  a  high  level  query  language  or  report 
generation  language. 

?.  Charge  is  easy. 

S.  low  cost . 

9.  Accuracy  and  consistency. 

1?.  Privacy 

Cf  coarse  we  cannot  expect  all  of  these  oblectives  will 
he  gained  in  the  optimum  fashio~-  at  the  same  time.  Depending 
on  the  user's  reauirememt* ,  the  data  base  is  designed  tc 
achieve  their  primary  objectives.  The  primary  objective  of 
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this  *hesis  is  design  a  data  base  system  for  small 

abdications  with  low  initial  an 3  operating  costs. 

B.  TATA  BAS 5  SYSTEM  COMPONENTS 

*  lata  base  system  involves  three  components? 

1.  User  I'r  application  programs 

2.  The  data  base  system  'programs  for  accessing  the  data 
base. ) 

3.  The  data  base  itself 

User  programs  are  programs-  through  which  the  users 
interact  directly  with  the  systen.  These  programs  are  written 
in  a  aueny  la-guage.  .1pplica*icTts  programs  interact  with  the 
system  via  a  language  such  as  COBOL  or  ?L/I.  The  data  base 
system  is  a  set  computer  programs,  that  operate  on  the 
data  base  in  accordance  wit'’  the  user's  cor-.rraTds . 

C.  B.4T a  ?4Sr  STHU**TURr 

Jor  the  p^e^e-t  discussion,  *ata  structuring  may  be 
•defined  as  the  computerized  representation  of  the 


following  is  an  example.  *or  a  given  school  there  are  two 
ba«ic  sets  f  information.  These  s°ts  are  student  data  and 
course  data.  See  figure  [2-1] .  rata  on  each  student  is 
maintained  as  a  record  and  the  collection  of  these  records 
becores  the  student  file.  Likewise  records  on  each  course  are 
collect  into  the  course  file.  These  files  are  considered  as 
the  primitive  da+a  bases.  To  obtain  the  names  of  students 
which  have  teen  schedu?.ed  into  classes,  the  relationships 
between  data  groups  of  these  two  files  are  reovired.  figure 
[2-21  .  The  cch**!  data  base  becomes  mors  complex  as 
additional  record  types  are  added.  ?or  example,  a  teacher 
file  is  aided.  The  data  base  now  should  have  relationships 
between  the  teachers  and  students  and  between  the  teachers 
a-id  the  c^n^ses. 


P.ecallir.2  from  the  definition  above,  the  process  of 
struc*uri”ff  a  da*a  base  is  a  of  mapping  the  different 
data  types.  This  mapping  can  be  done  using  physical  linkage 
or  by  inversion.  Physical  linkase  implies  that  addresses  of 
related  records  are  stored  within  records  themselves  so  that 
linkage  “paths"  exist  within  and  among  physical  files. 
Inversion  is  the  use  of  an  'inverted  file’  which  contains  the 
locations  of  ♦he  data  besa  records  [fef .41  .  .sn  inverted  file 
can  be  defined  as  a  file  which  contains  the  entity 
identifiers  associate*  with  the  values  of  certain  attributes. 


E.  RILAT ICN  SL  DAT*  R'S?  £???OACK 


In  today's  world,  users  'i.e  managers)  are  mere  concerned 
with  the  information  contest  of  th»»ir  data  rather  than  its 
representation.  Managers  tend  not  to  b®  bothered  by  bits, 
pointers,  arrays,  lists,  etc.,  which  ^ay  be  used  tc  represent 
information.  Rather,  they  desire  'i~depender ce*  from 
imole^ertatior.  details.  Ir  the  relational  model,  information 
is  represented  a *  the  user  interface  by  data  values  only. 
Dser  rea vests  become  free  of  ar.y  dependence  on  internal 
represe-tati  o**  a-d  her.ee  may  be  framed  in  a  high-level 
nan-procedural  language  [Ref. 5?.  At  the  same  time  the  system 
becomes  f t*ee  *o  choose  any  physical  structure  for  storage  of 
data  and  to  optimise  the  eTecution  of  driven  reoussts.  These 
characteristics  are  important  for  t*e  use  of  a  microcomputer 
as  a  ■  a i ”  computer  due  to  limited  size  "?  storage  ar.d 
slowness  of  access  inherent  with  flocpy  dis’is.  Data 
indepeMe’-cv  also  enables  tha  development  of  English-like 
non-procedural  ouery  languages. 


,  hi  U.hu  A.,»iiiriiiiti[4iij  ihi.!fiilJ!iitiiiiiK!i.iiiit!iiii iii luiiiiiJiiliii rii.  iwikdl^  uAIa  AiiiW.  //nuVrtaiM.eiiifti^  mi U itbiitrtiMi«.ndsm>rj>ftLVj t kfkifu&L iht^S it! to fcatBiL AnbiU1 


ST0D2NT  RECORDS 


COOPS*  RE CO EDS 


?lz.  2-2.  STUDENT-GOOES'5’  Relationships. 
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17.  STS?'*  OTJIRfM^NTS 

A.  F*RPk‘RP  RTOUIRrMTNTS 

The  srs  ten  developed  It.  this  thesis  uses  an  ALTGS 
•pic recompute?  (Z-?&  plus  64T  Temory'?  with  two  single-density 
floppy  disk  drives  and  the  UCS!)  rascal  software  system.  Each 
floppy  disk  has  a  caoacity  cf  256K  bytes.  The  S4S  memory  size 
is  considered  to  be  adecuate  for  storing  the  operating 
system,  programs  being  executed  and  for  working  space. 
Certainly,  the  larger  the  size  of  the  memory,  the  more 
suitable  it  be^o’-es  for  the  data  base  system  implementation. 
The  more  significant  limitation  is  in  the  floppy  disk 
capacity.  5127  bytes  °f  storage  is  too  small  to  hold  the  data 
base  and  the  data  base  system  programs.  However,  additional 
floppy  disks,  higher  densities,  and  eventually,  hard  disks 
will  greatly  enhance  thp  storage  capacity. 

The  UrSI?  Pascal  system  is  compatible  with  most 
microcomputers  usi^g  the  CP *'M  operating  system.  C^/H  is  the 
operating  system  used  for  Intel  3090  and  Z-32 
miorourocessors .  CP/M  provides  a  general  environment  for 
program  construction,  storage,  and  editing,  along  with 
assembly  and  urogram  check-out  facilities.  In  general,  it 
needs  at  least  16X  memorv  with  uu  to  four  disk  drives. 


However,  "isital  Research  has  recently  levelcoed  C?/**  version 
2.3 ,  wich  car.  uro^He  data  management  for  up  to  123  megabytes 
iP.ef.6l. 


B.  SO?T¥iRE  SUPPORT 


1 .  Introduction 

To  support  the  implementation  of  a  data  base  system, 
the  system  reels  an  operating  system,  a  lata  base  creator, 
as!  the  capabilities  to  create,  lelete  ard  insert,  nodate, 
and  retrieve  lata.  The  querv  le-guage  is  used  hv  the  user  to 
interact  with  the  data  base.  *  helo  command  is  necessary  to 
assist  the.  users  ir.  obtaining  information  about  the  logical 
structure  of  the  data  base  ani  to  provide  on-line  information 
or  h~v  to  use  the  lata  base  system. 

2 .  Ooera tine  System 

The  operating  system  was  provided  by  UCST-  Pascal.  It 
is  reorired  to  sunport  t^e  *ile  structure  that  will  allow 
dynamic  allocation  of  file  space,  yet  permit  both  sequential 
ani  random  file  access.  The  UCSP  Pascal  operating  system  can 
support  the  normal  internal  operations  necessary  f c ~  the 
microcomputer  system  to  interface  with  s^sdari  peripheral 
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eouipme-t  (e.g.  printer,  C?.T.  -*ish.  etc.). 

3.  Tata  *ase  lanaseraent  listen 

*  data  base  "»ana*er*ert  system  Is  a  set  of  pro?rans 
that  operate  on  the  data  base  in  accordance  with  the  user's 
comrsands.  It  has  two  major  functions,  i.e..  lata  organization 
and  data  access. 


After  the  user  issues  a  reouest  usise  the  ouery 
lanecaee.  the  data  base  -nararenect  systen  intercepts  the 
reouest.  and  interprets  it.  'pinally.  It  performs  the 
operations  on  the  data  base.  The  data  base  sanajceueat  system 
developed  ir  this  thesis  has  three  major  subprograms  I  a 
parser,  an  interpreter,  and  a  data  base  creator.  I be  parser 
analyses  the  syntax  of  the  commands  receive!  from  the 
terminal  usi the  tcn-dcwr  persir.s  **tbod.  If  the  c errand  is 
syntactically  correct,  it  is  coded  into  a  table.  The 
Interpreter  the71  tahes  the  mfies  fro*  the  table,  interprets 
them,  aci  the*  executes  the  command.  If  the  syntax  is  not 
correct,  an  error  messaee  is  displayed  at  the  teminal.  The 
user  car  then  repeat  *ke  reonest  with  the  correct  comani . 

The  data  base  creator  is  used  to  create  a  new  data 
base,  cr  add  data  to  as  existlne  data  base  from  the  teminal. 


The  text  editor  developed  bv  UCS3  Pascal  cannot  be  used  to 


create  lata  files  for  the  lata  base.  This  is  because  the 
recuired  files  are  organ i z ed  as  sentences  of  encoded  record 
structures.  The  UCS?  Pascal  text  editor  can  oaly  read  and 
write  text  files  -'seaueaces  of  characters).  To  create  the 
data  base,  a  p-og^am  was  developed  which  reads  a  record  from 
the  terminal  and  writes  it  to  a  file  of  the  desired  type. 


4.  C-^ery  Language 

A  ouery  language  is  an  English-like,  self-cor.tair.ed 
data  language,  k  self-contained  data  language  is  a  complete 
prcgramniug  language  for  both  obtaining  and  r^ani  hula  tine  data 
from  a  data  base.  The  ouery  language  used  m  the  developed 
srste-.  is  a  SPCLTI-lik®  ouery  language  f?ef .^.S.91 .  It  was 
developed  to  be  abl°  to  relieve  data,  delete  data,  o«odlfy 
existing  4ata.  and  add  new  data. 

Retrieve  operations  are  represented  syntactically  as 
SELECT-730M-VEERT  blocks.  Tor  example.  a  command  to  get 
suppliers  "umbers  and  status  o?  the  surpliers  in  Paris  would 
look  like 

SELECT  S*. STATUS 

ERCe  S 


¥E?-E  C ITT  =  'PARIS'. 


The  command  is  erecuted  hy  finding  and  combining  into  a  set 
all  the  rows  where  CITY  -  'ps^TS'.  Then,  using  the  vertical 
mapping  for  columns  S#  and  STATUS  on  this  set  ,  the  reouested 
information  can  be  obtained. 

Deleting  data,  modifying  existing  data,  and  adding  new 
data  to  the  data  base  are  the  storage  operations.  The  DELETE 
command  is  used  to  remove  records  from  the  data  base,  the 
UPDATE  command  is  used  for  modifiyng  existing  data,  and  the 
INSERT  command  is  used  for  adding  *ew  records  to  the  data 
base. 


5.  help  command. 

The  helo  command  is  used  to  obtain  information  about 
the  existing  data  base,  i.e.,  its  logical  structure,  the  data 
type  and  status  of  each  attribute  (retrieval  or 
nor-retrieval^  e+c.  It  also  provides  on-line  information  on 
how  to  use  the  data  base  system. 
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C.  SYSTEM  OPERATIONS 


After  initialization,  the  data  base  system  prompts  the 
user  with  the  following  line. 

Command:  C'reate.  F'elp.  Xfecute 


Using  these  commands,  the  user  is  able  to  create  a  new  data 
base,  to  obtain  information  about  the  existing  data  base,  or 
to  retrieve  and  update  tte*»  existing  data  base.  The  details 
concerning  each  command  are  provided  ir.  the  user's  manual 
( appendix  CU 


V .  STSTTM  3 TOR* £3  STRUCTURE 


A .  INTRODUCTION 

A  data  base  management  system  is  an  effective  managerial 
tool  only  if  its  response  time  is  significantly  better  than 
existing  manual  systems. 

To  design  such  a  data  base  management  system  using  a 
microcomputer  as  the  main  computer,  the  arrangement  of  the 
on-line  auxiliary  storage  structure  must  also  be  considered. 
Currently,  floppy  dis’cs  are  the  primary  auxiliary  storage 
devices  found  with  microcomputers .  hopefully,  the  limitations 
on  storage  capacity  ard  access  time  inherent  in  floppy  dislts 
will  be  overcome  ir  t^e  future  by  hard  disk  systems.  The 
auxiliary  storage  structure  developed  in  this  thesis 
separates  data  a^d  relationships.  The  techr.iaue  is  to  develop 
and  store  the  relationships  separately  from  the  data  [Ref .21  . 

R .  S5P?R»TI'J3  D*Te  AND  DELATION'S  FIPS 

Loading  the  data  base  into  main  memory  would  provide 
better  access  time.  However,  this  techriaue  is  unusual  and 
often  impossible  to  implement.  This  is  especially  true  for 


large  data  bases.  It  is  also  a  problem  for  small  data  base 
systems  in  a  microcommiter  based  systems,  because  c?  the 
limited  amount  of  main  memory. 

The  separation  of  data  and  their  relationships  enables 
the  'data  base'  to  be  loaded  into  the  main  memory  in  parts. 
2ach  data  item  value  is  stored  once,  and  is  riven  a  serial 
number.  The  relationships  are  stored  in  terms  of  serial 
numbers.  This  sa^es  storage  space  with  these  data-item  types 
for  which  multiole  data-items  have  the  same  value.  Therefore, 
it  is  possible  t*'  load  all  the  relationships,  which  represent 
the  data  base  in  terms  of  serial  numbers,  irto  main  memory. 
*11  accesses  involving  these  relationships  can  then  be 
improved . 

Another  alternative  is  the  possibility  of  loading  only 
the  needed  relationships.  It  is  not  necessary  to  load  all  of 
the  relationships  in  a  data  base  if  the  user  only  deals  with 
a  particular  relation. 

Separation  can  be  done  at  the  segment  level,  i.e.,  groups 
of  attributes,  or  it  car  be  done  at  the  data  item  level, 
i.e.,  individual  attributes,  where  relationships  between  data 
values  are  stored  separately  from  those  values. 


There  are,  now,  two  Kinds  of  files?  the  data  files  and 


the  relationships  files,  Data  files  are  the  files  that 
contain  the  data  item  values.  Relationships  files  can  he 
grouped  into  inerted  and  ror-i^verted  files.  The  inverted 
relationships  files  are  those  that  contain  the 
entity-identifiers  of  the  logical  or  user's  files  associated 
with  the  values  of  any  retrieval  attribute.  Noa-inverted 
relationships  files  are  those  which  contain  the  relationships 
of  all  retrieval  attributes. 

The  ob.iecti’fes  of  this  approach  are: 

1.  To  make  possible  faster  data  retrieval. 

2.  To  orovide  more  co^ulete  data  independence. 

3.  To  save  storage. 

C.  DAT?  *It*S 

1.  Introduction 

Data  files  are  organized  separately  from 
relationships  files.  There  are  three  methods  «nich  can  be 
used  tc  construct  a  data  file.  First,  the  data  item  values  of 
each  retrieval  attribute  car  be  stored  in  a  senarate  fils 
(fully  separated).  Second,  the  data  item  values  of  all  the 
retrieval  attributes  of  the  same  type  are  stored  in  one  file 
'separated  by  segment K  Thi-d,  the  inverted  relationships 
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files  a**e  embedded  in  the  associated  data  files  (partially 
separated'.  vach  •rp  these  methods  will  now  he  considered  m 
more  detail. 


2 .  Fully  Separated  file 

The  data  item  values  of  each  retrieval  attribute  are 
stored  in  a  separate  file.  See  Fig.  [5-il .  The  data  item 
values  of  non-retrieval  attributes  are  included  in  the 
"entity-identif ier  file'l).  The  advantage  of  this  method  is 
the  ease  of  data  update.  One  data  item  can  be  inserted  to,  or 
deleted  from,  an  attribute  file?',  without  affecting  any 
other  file. 


Fsch  retrieval  recor-  can  be  accessed  randomly,  when 
the  record  number  of  the  item  within  the  attribute  file  is 
known.  The  record  numbers  of  the  retrieval  data  items  are 
stored  in  the  relationships  files.  Using  the  given  data  item 
as  the  Vey,  the  record  number  of  this  data  item  in  the 
attribute  file  can  be  searched.  This  record  number  is  used  to 
find  the  value  of  the  reouested  data  item.  Fy  knowing  its 
record  number,  the  desired  data  item  can  be  searched  using 
the  random  access  method. 


1)  The  entitv-idertifier  file  is  a  file  which  contains 
entity-identifier  attribute  ulus  non-retrieval  attributes. 

2)  The  attribute  file  is  a  file  which  contains  values  for  one 
attribute  only. 

3? 


2 .  Separated  *y  Tjpe 

In  this  method,  the  contents  of  th®  same  type 
attributes  are  stored  in  one  file.  However  the  record  number 
of  the  first  data  Item  of  each  attribute  which  develons  this 
file,  must  be  maintained.  These  record  numbers  are  stored  at 
the  beginning  of  the  *ile.  .:nst  before  the  first  record,  or 
they  can  he  stored  in  a  special  file.  See  figure  [5-2].  The 
record  tyoe  can  be  of  fired  length  or  variable  length. 

Hefcre  accessing  t^e  relationships  file,  the  record 
number  of  the  first  data  item  of  the  attribute  must  be 
subtracted  f-om  the  record  number  of  the  given  data  item. 
Then  to  the  result  of  the  subtraction,  one  must  be  added.  The 
result  of  the  addition  is  use*  as  the  record  number  of  the 
given  data  item  in  the  associated  relationships  file.  The 
advantage  of  this  method  is  i”  storage  utilisation.  The 
disadvantage  is  that,  if  changes  to  the  file  are  freanent, 
deletion  and  insertion  cf  a  large  file  will  be  time  consuming 
and  costly.  This  disadvantage  can  be  reduced  by  storing  the 
rarely  changed  attributes  at  the  very  top  of  the  file  and  the 
frequently  changed  attributes  at  the  bottom. 

4.  Partially  Sgga rated  Files 

The  time  used  to  move  control  from  a  data  file  to  a 
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relationships  file,  and  vice-versa,  can  be  reduced  if  they 
are  physically  close  together.  This  can  be  done  by  embedding 
the  inserted  relationships  files  into  associated  attribute 
files.  The  relationships  files,  now,  are  merely  the  inverted 
ones.  See  figure  ff-3”* . 

RELATIONSHIPS  FILS 

Relationships  files  are  used  to'store  the  relationships 
within  the  logical  file  or  user's  file.  The  relationships 
files  contain  the  record  numbers  of  the  related  attributes 
only.  There  are  two  trees  of  relationships  files.  One  is  the 
file  which  contains  relationships  of  all  retrieval 
attributes.  This  file  is  a  ron-invertei  file.  The  other  files 
are  inverted  files.  Fach  inverted  file  contains  the 
entity-identifiers  **  *he  logical  user's  files,  associated 
with  the  values  of  any  retrieval  attribute.  Access  to  the 
relationships  file  is  accomplished  after  obtaining  the  record 
number  of  the  river,  data  item.  Using  this  record  number, 
access  to  the  associated  inverted  file  will  give  the  record 
number  of  all  entity-identifiers  which  have  relationships  to 
the  giver  data  item,  s'ter  obtaining  the  record  number  cf 
these  entity-identifiers,  the  relative  record  numbers  of  the 
desired  data  items  can  be  accessed  in  the  non-irverted 
relationships  file.  Finally,  these  record  numbers  are  used  to 
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k.  STP.UCTCHS  CHGiNlZiTICM 

The  data  base  structure  developed  ic  this  thesis  is  a 
fully  separated  structure.  The  initial  data  base  is  created 
nsin*  a  special  uro^ra***. 

IlCS*)  ?ascal  has  the  capability  to  access  variables  of 
tvoe  stric*.  ei*he»*  of  fixed  Gr  variable  length.  It  also 
supports  random  access  files.  Therefore,  all  data  ite-*  values 
aad  relationships  are  stored  as  records.  Since  the  first 
record  *?  a  file  is  the  ?th  record,  the  physical  record 
number  is  one  less  than  the  serial  ouster. 

Since  the  r°latiorshlos  files  contain  the  record  numbers 
of  the  data  files,  the  organization  thee,  is  similar  to  the 
basic  inverted  organization .  exceut  that  it  uses  a  relation 
file  fnor.-i*  verted  relationships  file)  rathe?  than  the 
original  lata  base  records. 

The  advantage  of  this  system  is  «ood  performance  in 
response  to  various  types  of  oueries  involving  the  inverted 
attribute  values  without  searching  the  vfcole  file.  Oueries 


■m 


like  ire  the****  **y  personnel  ir  department  'ie.  \?2  with 
salary  ecuel  to  Caa  te  answered  easil7  by  ‘MDing  the 


lists  cf  pointers  'record  rubbers)  corresponding  to  the 
access  keys  E???*  and  SAL  in  the  auery.  It  also  provides  more 
complete  data  independence.  *y  separating  the  data,  different 
apolicaticns  will  be  able  to  have  different  views  of  the  same 
data.  It  world  he  possible  to  change  the  applications  without 
anv  changes  ir.  the  stored  data. 

Another  advantage  is  storage  soace  savin*.  Tor 
illus trail o- .  suppose  there  are  onlv  sit  STILL  values.  The 
file  contains  many  secretaries,  but  the  value  'S-CSSTASY'  is 
stored  only  once  ir  tve  data  file.  *11  the  values  'STCATTAP.T ' 
ir.  the  dara  has®  a**®  stored  ir  ter-s  of  the  serial  number  of 
'SSC35TAPT'  is  the  noa-inverted  relationships  files.  In  the 
relationships  f i I ®s »  a  STILL  value  could  be  referred  to  with 
3  hits.  Using  UCS3  Pascal  this  Talus  is  stored  as  aa  integer 
in  a  18-bit  word. 

The  disadvantage  is  that  it  is  more  ccstl7  for  the 
updatia*  process  because  of  the  necessity  of  maintaining  both 
the  data  and  the  relationships  files.  However,  it  is  still 
better  than  the  doubly  chained  tree  or  multilist 
organizations  [?ef.l?]. 


B.  TFT  DATA  BAS'?  ACCESS 


The  data  base  management  system  will  handle  al!  access  to 
the  data  base.  It  intercepts  the  user's  reouest,  interprets 
it,  and  performs  the  necessary  operations  on  the  data  base. 
It  makes  use  of  an  access  method  to  handle  the  details  of 
physical  access  to  the  data  base.  This  physical  (lower  level) 
access  method  is  performed  by  the  UCSD  Pascal  operating 
system . 


There  are  four  major  programs  which  were  developed  to 
access  the  data  base.  CP.‘5’*T?  is  a  urogram  which  creates  the 
initial  data  base.  Th«  ?»?.SEP  is  a  program  which  verifies  the 
user's  reouest  and  provides  all  information  needed  by  the 
INTEFPPETTF.  Th.-  IMTEFFPFTE?  is  a  program  which  performs  the 
necessarv  data  base  manipulations,  ^EIP  is  a  urogram  which 
provides  the  user  with  information  concerning  the  logical 
structure  of  the  data  base. 


&11  *he  programs  are  written  in  UCSD  Pascal.  They  were 
compiled  separately  and  stored  in  the  system  library. 


1.  Create 


The  initial  data  base  is  created  by  invoking  the 
CdIsTE  program.  The  data  can  be  stored  in  the  desired  file  in 
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record  format,  either  of  tyre  integer,  string,  set  of 
integers,  nr  s  combination  of  those.  For  conver.ierce,  all 
data  files  are  stored  in  floppy  disk  drive  No.l.  The  system 
disk  'drive  is  used  for  the  operating  system,  utilities, 
the  data  base  programs,  and  user  application  programs. 


2.  Parser 


This  program  first  initializes  the  system  for  data 
base  manipulati or.  ooeratiors.  Then  it  asks  the  user  to 
describe  the  data  base  he  or  she  needs  access  to.  It  accepts 
the  user's  keenest  written  in  a  S’QU^L-like  ouery  language. 
Error  messages  will  be  displayed  the  terminal  .or  any 
syntax  error,  and  the  user  will  be  prompted  to  reenter  his  or 
her  reouest.  tfhe r  correct  innut-  is  received,  the  program 
generates  a  seouence  table  and  a  reference  table.  These 
tables  will  be  used  by  t>e  IMTlp-??.rTF? . 


3 . 


In  performing  data  base  manipulations,  the 
INTIF.FRETFR  follows  the  «eone”ce  provided  in  the  seauer.ce 
tables.  The  results  of  the  action  taken  by  the  interpreter 
will  be  displayed  at  the  user's  terminal.  *ny  file 
manipulation  error,  will  be  discovered  by  UCSD  Pascal's 
system.  The  system  will  not  recover  from  this  type  of  error. 


AwM  *  .*<h  V  *n«  ■ 


There  are  five  ma.lor  procedures  in  INTER?FST£R. 

a.  CONDITION 

This  procedure  gives  the  tuple  nurober(s)  which 
meet  the  condition  (Qualification)  in  the  user's  reauest. 

h.  OUP’T 

This  procedure  selects  the  desired  attributed ) 
in  the  selected  tunled)  as  a  result  of  fa)  above. 

c.  UP1'*?? 

i 

Any  changes  on  data  am  relationships  files  as 
the  effect  of  the  nodatine  process,  will  he  handle-?  by  this 
procedure . 

d.  I NS POTION 

This  procedure  performs  any  addition  to  the  data 
base,  i.e.,  addition  to  the  data  files,  and  addition  or 
changes  in  the  relationshios  files. 
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e .  m??! 


This  procedure  deletes  the  data  which  the  user 
wants  to  remove  from  the  data  files.  This  procedure  also 
deletes  or  changes  the  values  of  the  relationships  files. 

4.  Help 


This  unit  is  intended  to  assist  the  user  in  finding 
information  abou*  *he  data  base,  i.e..  the  logical  structure 
of  the  data  base,  and  orovides  on-line  information  on  how  to 
use  the  data  bas°  system. 

C.  OH  FRY  LAMqjV’r* 

The  STCtT?Tj-like  ouery  language  as  previously  discussed  is 
provided  to  the  users  to  communicate  with  the  data  base. 
Syntax  graphs  and  procedures  are  available  in  ‘poendix  D. 


HI.  rorasTONf 


To  solve  the  cost  problems  arising  in  the  implementation 
of  data  base  svs*pf"s.  particularly  for  small  amplications, 
the  use  of  microcomouter  systems  should  be  considered  as  an 
alternative.  The  develooed  system  has  demonstrated  that 
currently  existing  microcomputers ,  using  UCSI-  Pascal  as  the 
system  software  and  floppy  disks  as  secondary  storage,  could 
be  considered  for  s^all  applications.  Although  the  current 
auxiliary  storage  caoacities  are  too  smell,  additional  floppy 
disks,  higher  de-sities  and  eventually,  hard  disks,  homefully 
can  solve  this  storage  problem. 

The  techrioue  of  storine  data  separately  from  their 
relationships  enables  the  loading  of  all  the  relationships, 
at  least  the  reeded  ones,  irto  main  memory.  *11  accesses 
i^volvi^e  these  relationships,  can  then  be  improved.  It  is 
also  possible  to  obtain  more  complete  data  independence  and 
to  save  storage. 


1.  AtaitAMiaMihiiiicfii 


A.  INT50PUCTICN 


This  data  base  management  system  is  intended  to  provide 
the  mea^s  fo~  cheating,  retrieving,  and  updating  a  data  base 
in  a  microcomputer  based  system  supporting  UCSU  Pascal.  It 
has  three  na.ion  functions. 

1.  Bata  base  ini tl  all xa ti or . 

2.  Bata  base  manipulation. 

3.  Providing  helpful  information  on  the  data  base. 


This  system  is  executed  with  the  X(ecute  command  at  the 
outermost  command  level  of  U^SD  Pascal. 

X'ecute  <'MICHCD*T*N 

It  displays  three  available  commands  associated  with  the 
three  functions  abo^e.  The  prompt  line 

Command:  Create,  H(elp,  X(ecute 


will  be  shown  on  the  screen.  The  user  can  select  one  of  them. 
Por  example,  by  typing  "X"  the  sy-jtem  will  execute  the  data 
base  manipulation  function.  With  a  SPOUBL-like  ouery  language 
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he  or  she  can  communicate  with  the  data  base. 

Pefore  working  with  this  system,  the  user  is  expected  to 
put  the  system  disk  in  drive  0  ard  the  data  base  disk  in 
drive  1. 

B.  BATA  BASH  INITIALIZATION 

Tor  creating  a  data  base  initially  a  special  urogram  is 
used,  ?y  typing  C(reate  at  the  command  level,  a  software  unit 
named  C?T».T*  is  invoked  to  serve  that  function.  The  system 
will  automatically  create  the  desired  file  in  the  disk  that 
currently  exists  in  drive  1.  At  this  level,  it  is  possible  to 
delete  a  character  on  the  current  line  without  leaving  the 
create  mode  by  back-spacing  over  it.  The  following  steps 
describe  now  to  use  the  system  for  data  base  initialization: 

1.  By  selecting  c(reate,  a  message 

'The  system  is  ready  to  create  a  file. 

Please  enter  your  file  name  - 

will  be  displayed  on  the  screen. 

2.  The  user  response  would  be 

<f  ile-name><'CR> . 
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a.  .*  data  '  J  name  is  identical  to  an  attribute  name. 


I  Sample: 

if 

K| 

l 

u 

I  »J»*V  <fT\ 

gr 

|  b.  »n  inverted  relationships  file  name. 

£ 

|  Granule : 

t 

§■ 

I  ’  tw.Hkr? 


IMUMWMMH  . . . . . . .  -  j . . 


entered  in  this  file?T/N 


The  user  has  a  chance  to  enter  his  or  her  non-retrieval 
data-iten  value  only  ir.  the  file  of  the  key  attribute. 
Thus,  the  user  may  type  'I'  if  he  or  she  wants  tc  or  '*«'  if 
he  or  she  want  to  out  them  ia  another  file. 

4.  ‘  'I '  will  cause  the  rert  prompt t 

“Please  give  its  name." 

The  user  resoonse  is  like  2a.  above. 

5.  The  system  asks  for  the  data  type. 

*Pata  type?  [iNT'eser.  STR'ing.  SET.  ]" 

THT-'eeer  means  the  data  are  of  true  integer,  STP'ine  are  of 
type  string  and  SET  are  of  type  set  of  positive  integers. 

6.  The  user  resoonse  would  he 

^data  tvoeVC^ 

In  the  case  of  a  uon-retrieval  attribute,  only  the  type 

attribute  is  entered.  The  r.or. -retrieval 
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of  its  retrieval 


#W  *--*  W'V  »  » 


attribute  data  value  is  considered  to  be  of  type  stria*. 

?.  l>e  next  nromot  will  be  displayed: 

"Please  enter  your  data. 

=====\  ’ 

If  a  "on-retrieval  attribute  exists  in  the  key 
attribute  data  file,  the  enterin2  data  will  be  interpreted 
alternately-  i.e  retrieval,  non-retrieval ,  retrieval,  and 
so  on.  The  format  for  this  is: 


^retrieval-datas<rT5^ 

<ncn~retrieval-dataXCR> 

9.  ».  rontrol  C  will  terminate  the  system  with  the  followin* 
r>essa*e. 

*•  file  named  .  has  been  entered  with  .... 

records." 


C.  E»T»  I»ST>  *?NX?TJI»TION 

To  con-rar.icate  with  the  data  oase,  a  SEOUPL-like  ouery 
language  is  used.  The  system  intercepts  user's  reauest 
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written  in  that  laneuase.  interprets  it,  and  performs 
necessary  ''peratioms  fcr  ''c.tc  manipulation  purposes.  Error 
messages  will  he  displayed  on  any  syntax  error  or  data 
manipulation  er-er.  and  the  user  is  asked  to  repeat.  I/O 
errors  however,  will  he  handled  hy  UCSD  Pascal.  If  I/O  errors 
occur,  the  system  must  he  reinitialised.  »t  this  level,  the 
hack  space  character  is  used  to  delete  a  character  on  the 
current  line  without  leaving  the  execution  mode. 


The  following  are  steos  in  nsir.fl*  the  system  for  data 
manipulation. 

1.  Type  X'ecute  at  the  command  level.  The  followin*  message 
will  te  displayed: 

"The  system  is  ready  for  data  manipulation. 

Please  describe  your  data  base." 

The  user  user  is  expected  to  describe  the  data  base  i.e., 
all  the  relations  and  attributes  where  he  or  she  wants  to 
work  on. 

2.  The  next  prompt: 

^elation  ==='-  ’ 
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asis  the  user  to  describe  his  or  her  relation.  The  user 


1 

-3§ 

g 

2 
-s 

response  would  he  3 

1 

<rel-nane>(<att-aa,ne>{  ,<att-nane>}  KCH>. 

traces  '{})  imply  aero  or  more  repetitions. 

3.  The  system  **espor*s  with  the  next  prompt: 

“Attribute  ===h" 


The  user  response  world  he 

<att-*ar55>,<status>,<type'>r<CRXatt-r.ajre>,<status>t<type>} 
or  'Vr?tN 

The  anl  ar°  optional.  They  are  used  ?*t 

describing  another  relation  and  terminating  the  description 
respectively.  Without  or  the  prompt  =*==>“  will 

be  displayed  for  the  next  attribute. 

4.  Trterire  a  causes  tve  prompt: 


“delation  *==h” 


5^ 


ar-J  steo  2  2!**!  3  abo7»  hare  to  he  reseated. 

3.  The  system's  response  on  is 

‘Preparation  is  ccmolet-ed. 

Mow  7cs  nay  *i*e  year  command. 

___v  * 

6.  The  system  ***v  is  ready  to  intercept  ary  user's  reouest 
{ corner *»  written  ir  a  SrOUTl-*lifce  aner7  language.  Format r 

^cr^mau  1^. 

n .  Results  nr  outputs  are  displayed  oa  the  screen  for  each 
succesfui  data  "a nl pul at  ion .  fallowed  h^  a  ^  which 

indicates  that  the  system  is  ready  fer  the  nett  coruani . 

8.  Prror  messages  will  he  i Is clayed  for  syntax,  data 
manipulation  or  1 7G  errors,  either  durir«r  -data  base 
description  o’*  manipulation.  Thee  the  user  is  asked  to 
redescrihe  his  or  her  data  base  or  reseat  his  or  her 
reouest.  Tor  example. 

.  <rz\ 

will  cause  the  message 


Symbol  **'"*  is  o  f-?ded . 


-  S'rL'frT  •w.O'i  V?  . . 

litres  the  ^ssese 

'Undefined  relation.** 

9.  I/O  errors  ere  ha-d!ed  by  CCST?  Pascal.  If  they  occur 
centre!  is  transferred  to  «JCST  Pascal,  tha  systen  anils  and 
has  to  be  reinitialized  by 

X(ecn*e  <f TC?OU*?*?*SP> 

at  the  coTsand  leTel  of  IT'S?  Pascal.  Then  procedures  fre-t 
step  1  hare  to  be  followed . 

1?.  Certrel-?  terMrat*s  the  data  bass  *"antpulatieo 
fusetion  with  tbe  oiessaee? 

lata  base  •raulpnletie’*  hj?  been  completed. 

Control  is  transferred  to  UCSC  Pascal  system. 


D.  EH.?  FUNCTION' 


J5i*5*w‘ 


This  system  is  also  provided  with  the  help  function, 
which  helps  the  user  to  obtain  information  about  the 
currently  existing  data  base.  It  will  list  all  the  existing 
relations  and  attributes  including  their  status  and  types. 

By  selecting  H{elp  at  the  command  level,  the  help 
function  is  performed  and  the  information  will  be  displayed. 
For  example 

Eel a  ti on :  ?MP(?MP# , NAME . DEPT# ,  SX I LL ,SAL , ADDR ) 
EMP#,FFY,NBR 
NAME, RET?.  ,CE 
OET5T#,REH,NBP 
SKILL, RETR.CH 
Sa.L,15FT1J  ,MPP 
aBDR,NONR.CE 

Relation:  CHILD(EMP#,CENAMS,SEX,AOS) 

EMP#,CKEY ,NBR 
CHM»ME,CrFY,CF 
SFX,RETR.^H 
AGE,RETR ,NBE 

Control-C  terminates  the  help  function  and  transfers 
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*P?ENDIT  3:  QUERY  LANGUAGE 


A.  INTRODUCTION 

A  stand-alone  SEQUEL-like  onerv  language  is  used  in  this 
system.  It  is  intended  to  orovide  the  retrieval  (SELECT)  and 
storage  ' U?D.»?E,  INSERT,  DELETE^  operations  on  the  existing 
data  base.  Some  of  th^se  have  not  been  implemented 
completely.  E^r  creating  a  new  data  base  or  file,  a  special 
program  is  used.  (See  Data  *asp  Initialization). 


3.  RETRIEVAL  OPERATION 

1.  Simple  Retrieval 
e^an  pies : 

a.  Get  all  employees'  numbers  and  names. 

SELECT  EM?#,  N*!*E 
FROM  EMP. 

b.  Get  all  employees'  skills. 

SELECT  UNICUE  SEILL 
ER0M  EMP. 
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c.  Get  full  detailed  information  of  all  employees 


SELECT  * 
EPOM  EM?. 


2 .  Qualified  Retrieval 

Get  the  employees'  numbers  and  names  in  department 
no.  100  with  salary  greater  thar  3000. 

SELECT  EMP#.N*ME 
"PROM  "PM? 

WHERE  PEPT*=100  AMP  SAL  >  3000. 

3.  ?-e trieval  With  Ordering. 

Get  the  ferns,  children'*;  name  and  age  arranged  in 
descending  order  of  age. 

SELECT  CE\’«ME,  *OE 
^OM  CHILD 
WHERE  SEX= 'FEMALE ' 

ORDER  19  T  SGE  PESO. 


4 .  Re  tr_i e^al  Using  Nested  Mapping 


Get  all  employees'  names  who  have  female  children. 

i 


SELECT  N»ME 
PROM  EM’ 

VH*H?  PMP#  IN 

SELECT  EM?# 

?POM  CEIL’ 

W”RE  SrX= 'FEMALE'. 


5.  retrieval  Using  Several  levels  Of  Nesting 

Get  the  department  name  of  the  employees  who  have 
female  children. 


SELECT  DEPT N» ME 
FROM  DEPT 
WHERE  DEPT*  IN 

SELECT  DTP?# 

PROM  Ev? 

WHERE  ■rvp#  T^j 

SELECT  EM?# 
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F^Of-*  CHILD 
WEEK?  SEX= 'FEMALE 


f .  EeJLtieval  Using  A  N  IS  it.1 i  Mapping.  Vi  t!j_ 
Reference . 


Get  employees"  name  who  has  never  been  in  department 
number  1F«*. 


SELECT  NAME 
FROM  FMP 

WTPRE  1 ??  NOT  IN 

SELECT  DEPT* 

FROM  ^PT 

WEEPY  EKp*  =•  FMP.EMP*. 


7.  Retrieval  Using  A  Nested  Mapping.  With  The  Same  Table. 
ICYfliTLSa  IJ3  Ffllfc  Elacis.. 

Get  the  employee  numbers  of  employees'  who  have 
children  of  the  same  a.?e  wit*  at.  least  one  of  the  children  of 
the  employee  with  number  C?6?2. 


SELECT  UNIQUE  EMP* 


CHI  I!) 

V«RR?  JGE  IN 

SELECT  *GE 
FROM  C^ILD 

WHERE  EM?#  =  '07672'. 


£.  EeixlAsal  InvjivitLE  S?t  Cees4EiiQ.o. 

Get  supplier  rames  for  suppliers  who  supply  all 

parts . 

SELECT  SNAPS 
ERCM  S 

yn-ppr  (SELECT  P# 

F®OM  S? 

WHERE  S#  =  S.S*) 

(SEL^T  ?# 

ERCM  ?). 

9.  Retrieval  Involving  ^I^-US 

Get  employees'  numbers  who  have  no  children 
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( SELECT  EM?* 


MINOS 

( SELECT  E*?2 
FROM  CHILD) i 

L 0.  PsLri^iil  l2E2lyit?  in  Enumerated  TupjL?. 

Get  e*nplcyees'  numbers  vfco  have  the  same  s5cill  and 
salary  as  employee  number  '•27672', 

SELECT  EK02 

■PTJOM  PMJ 

WHERE  <STILL.SAL>  IN 

SELECT  STILL ,S  ®L 
THOM  TM? 

WHERE  EM?*  =  '07672'. 


C.  STORAGE  OPTRsTION 


I*2Pr§t§ 


a.  Simple  Update 


cfcanee  the  department  number  of  employee  numbered 
076?2  to  21  <* 

UPDATE  PMP 
SET  D?PT*=210 
M^TPT  ?MP«='^7672' 

b.  Repeated  Update 

Change  the  department  number  to  21?  and  the 
salary  to  ***?  of  the  employee  numbered  07672 
UPEATZ  EM? 

SrP  D*PT*=?10. 

SET  SAL  =3000 
WRPFP  '07672'. 


c.  Multiple  Update 

Suppose  CHILE  includes  ar  extra  attribute  PPEM 
(premium,  say  10  percent  of  his/her  parent's  salary  per  child 
under  20  years  old.)  *n  increase  on  an  employee's  salary  will 
increase  his/her  children's  premium. 


npuamy  tmp 

SET  SAL=300 

VHPPT  ?*?«= '07672 ' . 


I 


m 


|tp?»a<»T  f!»XT3 

SET  ?S3**=30«?0 

WHOR*  ?*?*='07672'  »?’T)  <20. 


2.  Insertion 


Add  an  employee  ramad  JO^SS.  C.H.  vitb  employe's  number 
073Z0  in  department  200  as  the  secretary  witn  saxary  3000. 


INSE?.?  INTO-  EMT> 

<'07?Oi0',  'JON^S  C  .*% 22*.  'SECHrT*:tT ',30055V 


3.  Deletion 


a.  Qualified  deletion 

Delete  CFTLD  if  n?r°  than  20  year  old, 


ISLET?  CHILI 
VHTHE  »5J?  >  217. 


b.  Unoualified  deletion 
Delete  all  children. 


nfTWT  CHILD. 
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D.  1IPR ART  FUNCTIONS 


1.  Furc'ier  I”  The  SELECT  Clause 


a.  Set  the  total  number  of  employees, 


S’t^T  CCUMTfEM?*) 
FROM  EM?. 


SELECT  COUNT**) 
tpqv  pvp  # 


b.  ^et  the  total  number  of  employees  vho  currently  have  children 


SELECT  COUNT* UN ICUE  EM?*) 


tt>Ov  CFIV?. 


2.  Function  In  The  Select  Clause 


With  •  Predicate 


Set  the  total  number  of  emuloyees  who  have  female 


children . 


APPFHDII  C:  IJI.05SAP.T  OF  TSHHS 


1.  Attribute.  1  ter*  referring  tc  a  colivm  of  a 
relational  file  It*  a  relational  lata  base  systea. 

2.  ‘ttribete  file.  *  file  which  contains  rallies  for  or.e 
attribute  only. 

3.  C^ntrel-C.  A  control  hey  used  for  ieminaiio*  an 
Deration  by  rusMr*  CT51  and  f  buttons  simultaneously. 

4.  C?/?*.  *n  eperctin*  system  use!  for  Intel  3?SS  a*d  2-3? 
microprocessors  - 

5.  <CP>.  Ca-riace  return  hey. 

r.  t-ata  irlererierce.  I-moity  of  atoll  cat  loss  to  chacee 
in  storage  s*rurt*:re  and  arress  strategy,  which  implies  that 
the  applications  concerned  do  not  depend  c-o  any  one 

particular  storage  siructn-e  and  access  strategy. 

?.  Fntity.  I ten  about  which  we  store  inf creation.  For 
example,  employee's  name,  address,  etc.,  are  the  entities. 

=.  Sutlty-identifier .  A  >ey  which  uniouely  if  ctifies  an 
entity  or  data  concerning  that  entity. 

9.  Faiity-ide-tiflers  *ile.  A  file  hich  contains  the 
esiit7-i-dertifier  attribute  ulus  non-retrieval  attributes. 

IS.  I^ve-'ed  file.  4  file  which  contains  the 

entity-identifiers  associated  with  the  values  of  certain 


attributes. 


I 

I 

€■ 

s 
f 

I 

i 
sr 

f  11.  Inverted  relationships  file.  A  file  which  contains 

the  values  of  a  retrieval  attribute  and  the 

* 

entity-identifiers  of  the  logical  or  user's  file  associated 
.  with  the  values  of  that  retrieval  attribute. 

12.  Non-inverted  relationships  file.  *  file  which 
contains  the  relationships  of  all  the  retrieval  attributes. 

13.  Prompt  line.  *  display  at  the  terminal  which  shows 
the  current  mode  and  the  options  available  for  that  mode, 
fvailable  in  the  UCSD  Pascal  system. 

14.  Cuery  language.  *n  Pnelish-like,  complete  programming 
language  for  both  obtaining  ar.d  manipulating  data  from  a  data 
bat . 

15.  Relationships  file.  A  file  which  contains  the 
relationships  of  the  related  attribute  files,  in  terms  of 
serial  numbers  or  record  numbers. 

16.  Separation  techniave.  *  techniaue  to  develop  and 

* 

store  the  relationships  within  the  logical  or  user's  file 
separately  from  the  data. 

17.  UCSD  Pascal.  A  software  system,  highly  machine 
independent,  used  for  stand-alone  microcomputers  or 
minicomputers . 
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■4jNtU.UE 


•qutr^xprtss 


express'on 


>  JiWWUjiH,  HP  ffli 


(*  *> 

'*  THIS  UNIT  IS  INTENDED  TO  CREATE  INITIAL  DAT5  BASE.  *) 

(*  USER  IS  »S'Cir!;  TO  GIVE  THE  TILS  ?;AM3  AND  THE  DATA  *) 

t*  TT?T  < SEE  USSR'S  M*HU»L)  *) 

{*  *) 

ONIT  create; 


INTERFACE 
CONST  MAX? 
type  ?n,°r 

INNON 


STNCN 


=  50?  '*  MAXIMOV  NUMBER  OF  TUPLES  *) 
t*  IN  ON*  RELATION  *) 

-  i..m»xt: 

«  RECORD  [*  RECORD  WICH  CONSISTS  *) 

IP*??  :  INTEGER;  (*  0?  ONE  INTEGER  SET  *) 

NON  I  :  STRING  '*  AND  ONE  SON-RETRIEVABLE  *) 

END;  (*  ATTRIBUTES  *) 


STRING 


=  RECORD 
SEAT A* 
SONS 

end; 


SETREC  =  RECORD 


'*  RECORD  WHICH  CONSISTS  *) 
(*  OE  ONE  STRING  KEY  *) 
STRING  (*  AND  ONE  NCN-RETR IEV ABLE  *) 
'*  ATTRIBUTES  ♦) 


INTEILE 
STERILE 
SSTFILE 
I  NON 
SNON 


RECORD  (*  RECORD  OF  VARIABLE  *) 

SETDATA  :  SET  CF  TN3R  i*  0?  SET  OF  INTEGERS  *) 

*nd; 

■^ILF  OF  I wmwjtpj 
FILE  OF  STRING; 

FILE  OE  STTRE^; 

■PILE  OE  innon; 

FILE  CE  STNCN; 


PROCEDURE  rRT>A?t’S  t 

IMPLEMENTATION 
7AP  rEC, 

NUM  ?  integer: 

CH  :  char; 

INPU*. 

ENA*!*?  string; 

PROCEDURE  CREATES T 

PROCEDURE  *NTTRINT(?  :  STRING);  [*  CREATE  FILE  OE  INTEGER  ♦) 
BEGIN 

RFW*  TTE 1  TNTFILE .? ' ; 

pTp  ;=  a; 

WHILE  NOT  EOF (INPUT)  DC 


*  W  K  MUM  1.1 


S SFE  ' I  NT*  ILr .  REO ) :  G*T  1 1 NTEI IF )  J 
*RITE(  '=>'): 
svenr.^'  INT*ILE~>  t 
I*  NOT  TOv( INPUT )  THIN 
•o?0  IN 

S?rE(INTETLE.RE'') :  PUT' INTIILT'-: 

RSf  :=  P.SC+1 
END 

end; 

CLOSE' INTEILS.LOCV) 

T»JT):  '*  ENT’RB4^  *) 

PROCEDURE  ENTFRSTR(F  t  STRING):  f*  C?S4TE  FILS  OF  STRING  *) 
BEGIN 

-EWRITS'  STPEILE  .F '  * 

ppc  .= 

WHILE  NOT  SOI {INPUTS  DO 

^  V'JI  tj 

~ S^II ' STRTI LS , R ir } :  G*? ' STRFI LI ) : 

WRITS('=^'):  ?E*DLN'  ST?.?ILE~) : 

IV  NOT  *0F( INPUT)  TWEN 
BEGIN 

SFET'STRFTLFtREC):  PUT' STRFI LF) J 
RFC  :  =  3IC+1 
end: 

end: 

CLOSE' STRFILF, LOCI ) 

end; 

PROCEDURE  ENT^RSETd  :  STRING)?  (*  CREATE  TILS  0?  SET  OF  *) 
BEGIN  (*  INTEGERS  *> 

PE'iPIT^'SFT^ILE.F): 

RVC  :=  0; 

WHILE  NCT  EOF' INPUT '  DO 

TT^I  »J 

SEEK'SETEILE.REC ' »  GET' SITFILS ) ? 

WvTTTf  '=>'); 

WITH  S^TEILV'-  DO 
BEGIN 

SETD?TS  :=  n: 

px-p-pif 

READ(NUM)?  SSTDATA  :=  SSTDATA  *  [NUMl 
UMTIL  *CLN( INPUT) 
end; 

jt  mot  *0*' INPUT)  THEN 
BEGIN 

SVEI'SETFILE.VEC):  EUT'SFTEILE): 

Rvr  ?=  RFC*1 
ENE? 

end; 

rLOSE(SrTT'ILV,LOCE) 

END? 


75 


PROCEDURE  INTsNDNQVfF  t  STRING):  (*  CREATE  TILE  OF  RECORDS  *) 
BEGIN  <*  VI CH  CONSISTS  0?  ONE  *) 

REWHITEdNCN.F);  (*  INTEGER  AND  ONE  NON-  *) 

RFC  :=  0?  I*  RETRIEV ARIF  ATTRIBUTES  *) 

WHILE  MOT  ^O^C INPUT )  DO 
BE3 1 S 

smdvoN.sFO:  c??fiio n):  vrite('=>'): 

WITH  INOJT  DO 

BEGIN  RFADLNdD»TA): 

V?ITS( '=>');  READLNfNONI) 
tnd: 

I?  NOT  F0F( INPUT  )  THEN 

■5FCIN  SFFEdNON.^EC) :  PUTdNCV); 

off  •=  H'PC4-! 

END 

end: 

CIOS'’ d  NON ,  LOCH ) 

end; 

PROCEDURE  JTP«NDNOVfF  :  STRING):  (*  CREATE  FILF  OF  RECORDS  *) 
BEGIN  (*  WISH  CONSISTS  OF  ONE  *) 

REWRITE' SNON.F';  (*  STRING  »ND  ONE  NON-  *) 

SEC  :=  0;  (*  RETRIEVABLE  »M?IBUT£S  *) 

WHIL*  NOT  7OvdN?UT)  DO 
BEGIN 

SEE7  'SNOM.’EC  ) :  GET'S^ON):  VHITF('O'); 

WITH  SNON~  DO 

■crfjin 

READLN l SLAT  A ) » 

yPITE( '=> ') :  ?E*DT  N'NONS  ) 

end: 

IF  NOT  EOF (INPUT)  THEN 

*FGIV  SF7E(SNON,DEC) :  PUT'SNON): 

RFC  :=  REC+1 
END 

?&jT>  • 

CLOSE (SNCN, LOCK) 

end; 


BEGIN  (*  CREATES  *) 

writfln; 

VRITTLN( 'The  system  is  ready  to  create  a  file'); 

v?.ITF(  'Please  enter  rots?  file  name - >'): 

?.EAT  ~  *!  -  INBUF ) : 

tv?..  -  .=  CONC*T  ( '*5t  '  .I*’BUF); 

W?.TTC(  '*ny  non-retrieval  attribute  entered  here?  T/N 
R^SD'C^):  WRITrLN : 

IF  CH  =  'T'  THEN 


¥?ITF{  'Please  £ive  its  name - >')* 

V? TTELN?  ¥*ITE('Data  true?  INT(e«er,  STRfin*,  3??.  -^'I? 

seabin(in?od: 

'«HITET,N(  'You  vay  enter  yo^r  lata'); 

CAS?  CE  CF 

'S'  :  IF  INEUF  =  'IS*'  THEN  ENTERINT-f FRAME) 

ELSE  I?  IN3CF  =  'SI?/  TEEN  2NTSRSTR{ FNAMS ) 
ELS’*  IV  INVITT  =  'SET'  THEN  ENTERSET (FNAMS ) 
FIS?  3?*; IN 

¥RIT*LM('?ail  to  create  a  file')? 

FXIT( CREATES) 
end; 

'l'  i  IF  IN*UF  =  'INT'  THEN  INT»NDNON(FN»ME) 

ELSE  IF  IN3UF  =  'ST?/  THEN  ST?AMDNON(?NAME) 
FLS  F  VFDIN 

WRITEINi 'Fail  to  create  a  file')? 

ETITf CREATES) 

END 

*ND? 

¥RITELN( 'File  with  name  ' ,ENAME , '  has  been  created')? 
WRITTEN ( 'with  ' ,REC  t4, '  records') 

END?  (*  CREATES  *) 

END.  '*  UNIT  f'Rz'*Tv  *) 


7? 


. . . . \m . wjatows . . . . . . 


{*  .  *) 
(*  T^IS  UNIT  IS  INTENT™  TO  CIT^  THE  OS  IB  *) 

(*  IN^OE^TIOV  S*0U?  THE  EXISTING  !)»?*-  R*SE  SND  *} 
(*  HOW  TO  OS?  THE  SYSTEM  *j 

(*  *) 


unit  helps; 


INTERE*CE 


VAR  TXT  :  TEXT: 


PROCEDURE 


w»LP; 


IMPLEMENTATION 


EAR  I.  H?**  t  INTEGER. 
C»  :  CH»?; 
ENAME  t  STRING; 


PRCCETOEE  HELP: 


PRO r,EriUR'p  R'»PTXT(S  :  STRING); 


BEGIN 

R^S^T'TXT.S):  I  ?«  0: 

-E?E*T 

W»!Lr  NOT  *OLN'?X?'  TO 

BEGIN  REAr(TTT.CH):  WRITEICH)  END; 
PE‘*?LN'TXT':  T  :  =  T+i; 

writeln: 

UNTIL  fl  =  2P>  O'  f  EO'p(TXT)): 

I?  SCT  ^OT'TXT  •  TTrrN 
BEGIN  REAL ( CHi: 

I?  CH  =  '  '  THEN  I  :=  0  END; 

CLOSE' TXT, IOCS) 

END: 


BEGIN  {*  RrL?  *) 

WEITELN?  WRITE! 'Pfata  Bas®.  U'ser  Manial 
REAIM CH) ;  writels; 

CASE  CH  OT- 

'V'  :  VNA.M*  :=  'P*T*BAS'P':  {*  BOTH  TILES  ARE  STORED  *) 
'U'  i  EN»MF  :=  'US*RM«SUAL'  (*  IN  SYSTEM  DISK  *5 
i-o; 

R*  i  DT  XT  '^N  »Mr) 
end; 

EVD.  f*  UNIT  PTL°S  ♦) 


m* 


(Z 

(*  THIS  UNIT  IS  IN?EV!?F'P  TO  7*?I»Y  USSR'S  REQUEST 

(*  *p  it??*:  is  seosel-lixe  query  l»mous?e. 

(*  ESS OH  MESSAGE  IS  SI7EN  CM  EACH  SYNTAX  S3303 
(*  ANS  USE?  IS  A  SEED  TO  SW*T.  I/O  EHS03 , 

'*  HCSiTTER.  IS  F*NDLSO  BT  UCSU-PASCAL  SYSTEM.  I? 

{*  IT  HAPPENS.  THE  SYSTEM  SUITS  ANT  HAS  TO  hi  ?E- 
(*  INITIALIZE. 

(*  wvnov  VKTT-.TH f*  fTTT  9?Ct??S?.  T”T"  T<? 

(*  TC  DEFINE  HIS  0-  HE?  TAT*  3*S^  ¥*105=2  OH  SP* 
*AN?S  TO  ¥03*  ON.  BY  DO  I  NS  THIS.  ALL  THE  IN¬ 
S'  ~  Y?3TE^  a-LATTCNSHIPS  'S’lLE  "‘S  **  LOATIT  IN  THE 
( ^  v.ijn  MEMOp Y  TO  0,TsIv  ?*STT?  ^"C^SS. 

r  j.  * 

UNIT  PASS?: 


INTERFACE 


MAX*?* 

■c 

**r  X??L 

s 

z: 

«|T7Tn 

_ 

If: 

ymrr 

= 

l'*: 

MAXTPL 

5?: 

MAYSTM5 

= 

15? 

VAXIN7 

!<** 

TYPE  STMP01 


t?l:jc 

EIELUNC 

STTTU? 

STATUS 


«»TT»*ijM  nr  <TTHITIJT"S  IN  A  *> 

'*  “*  --L»TICN  “  '  *} 

t*  MAXIMUM  MT"3*~  0?  RELATIONS  IN  *  *) 

(*  IaTA  BASE  *) 

f*  -*XTVUV  NUM*??.  0?  *LL  ATT"  I  BUIES  -) 
f*  rsTi^v  cE  !?»?*.  ACCESSES  *1 

'*  -*X.  NUMT,V-  0*  TUPLES  IN  •  EEL*TION  *) 
**  "AX-  NUMBER  CT  OPERATION  SEQUENCE  ** 
'*  -AX.  ?CT*L  NU--5E?.  C?  RET' 1 27  A  ELI  ~) 
?*  U*?*  ITEMS. i.e.  ?G?'-L  NUMBER  0?  *} 

(*  INfESTEU  PILES'  ?ECO? US  ») 


'NUL.  IU?NT.  N*3.  PLUS.  MIS.  ST*3.  SLASH. 
POL.  NEC,  LSS.  LEO.  SEC.  LP-S.  2??.N, 

CMA,  CLS .  P3U,  CUOT,  SETS.  SSLSYM.  IN5SY 
ISTOSYM.  UPUSY**  TELSYM,  USIOSTM.  V5SRS7K 
C~STM.  AN5STM.  ‘■-‘TSYM.  CONTSYM.  INSYM. 
INTRSYM,  UNI3YM,  MlHSSYM.  VfOSTM.  MA7.3YW 
MINSYM.  SU-STM.  ?*N?STM,  OREStM.  BYSTM. 
ASCSY-,  UESST*.  SET3YM.  EFMSTM.  NOCCNT. 
NOTIN. STSYM.  XNBSTM.  CCNT*.  LOU.  FELSYM. 
•TTSTMlt 

i..maxt?l: 
i  .  t*tt: 

Sr?  0-  TrLNO: 

*rEY,  CTTT.  5E^P.  VCN=~Y- ' : 

{*  SET.  COMPlNEij’^EY,  3ET-iis7ABLE  ANE  ** 

E  *) 

'*  PEGGED  OE  EEFE-2NCE  *) 


= 


f  )^A  * 

FCT  : 

CASS  5TV 
S^TS  : 

one?  : 

NBR  t 

?nd: 

r7CO?9 

NAMED  : 
B*SE  : 


SIZ3 

? SCORE 
*?N 

S?*7 

SINS 


isrn-n; 

symbol: 
SOI  c? 


;=  R TLA? ION  sc. 
*  ST?RIBU?S  NO. 
(*  FUNCTION 
■:  *  7  ALUS 


fSt*r?s  ;  3  FT  0?  FIFLS’nO}: 

'COOTS  :  STRING); 

•¥*I  :  INTFOFE) 

'*  INDORSATION  OF  HFLATICS  *} 
STRING:  '*  RFIATICN  K»sd  ♦) 
IMTFGFSI  {*  XT5  *?TrI?OTI7S  ♦) 

'*  BASS  LOCATION  IN  *) 
'*  ATTRIBCTF  TABIF  *> 
INTFGFR  t*  NUMBER  0?  *T?  *j 

'*  INFORMATION  0?  !?T?I3UTS.  »] 


string: 

S?*TcS: 

stsrcl; 


ATTRIBUTE  NA  t*.? 


IN 71-1  = 


end: 

511*0 


ss?m? 


STRING  OR  I NTS GSR 

§ 

'* 

3*SF  ADBEFSS  »?TSR 

*  \ 

£ 

{* 

BFING  L0A3SD  INTO 

* 

f  «: 

* 

MAIN  MSMCRY 

*) 

NUMBFR  0?  RFC0R5S 

*) 

{» 

L0--7SO 

*) 

SD?  0?  TUPLF  MC. 

"} 

r  ~ 

C?  AS 5CC I  -TS3  DATA 

**= 

# 

(- 

ITEM 

57'*.  5*U!c'*.  CTJ  :  SYMRf'L: 

?.  ?.  C.CI,  M.Fr?. 

I.  J.  F.  ?.  TT.TO?. 

CC.  i! .  II  .  NtJM  :  INTFOFR* 

J.  :  I M"'  JC?1 7": 
CUO?Fn.OSTE. 

STR.STRS. 

FNAMF,  ?STvaf*l  :  ST-ING; 
•ITS  ?  STT  CD  DITL^NO: 

SI  :  status; 

BELTBI-  :  *?R*T[l  .  ( 

ATT 31  :  ARRAY[1..-!I?tV«  r 

SECTBL  :  ARRAY fl  ..MsXSY^S1 
iNVir-I  :  ARRAY  fl . .MAXIV7I  ( 


\HVl  ’  °T  ?-l5T L;  f*  B2LATI0N  LIST  *) 

A-TT3-  :  A-*  EA  Y  [l .  . M  SX?LDE  0?  ATT:  !*  AT7FI30T?  US?  *} 

SSCTBL  :  ARRAY [l  ..MsISyS1  OF  SYMBOL;  {*  5F0U2NCF  *} 
INTTR-L  :  ARRAY [1  ..MAXIS7I  0?  SSTTj? j  i *  TiRLS  0*  5E? 

(*  0?  TUPL?  NO.  *J 

TFV?  :  is;!?  f *  . . **s JATT’  O7  S^RI15J 

INS  :  RSFRfC; 

-SFT3L  :  *?RATri..sJT--?vi  c.t  R£vrjc:  3rr 

ANYRSL  :  FILS  01  I N7SRT; 

*  *11.  ATTRIBUTES  N”IDSr  *) 

( *  VO  1?  3 

NCCONB  ;  BOOLEAN?  f*  NO  05*11^1 


AM  » <fM  A  itf’rJ.n.  i-i'n  !i  I U  J  i  « ^  MUM «>«<..  u  !**  I M  vtAMiJto,  tM.jMlnHk  Nit  MkM  AiM&i  immil  it tm Mi  r  mm  jilt  m»hmi  thMKacuiun  hiimi  Mia  iimiM ! _ ■ . 


PROCEDURE  initialize; 

P-OCEDUPF  ??E?i??; 

PHOCEDUH*  rRR0R(  S  s  SYMPOLU 
PROCEDURE  scanner; 

PROCEDURE  ST»TW*NT; 

implementetion 

CONST  WP.BSIZE  =  1?;  '*  M»ZIMUM  SIZE  OP  IDENTITIES  * 

KORV  =26;  (*  NUMBER.  OP  RESERVED  WORDS  IN  * 

(*  OUFRY  LANGUAGE  * 

NMAX  =  10; 

TYPE  STRGl?  =  P ACTED  A"?AY  fl . .W°DSIZE]  OP  CH'?; 

VAR  CE  :  CHAR; 

PEC  :  integer; 

WORD. ID  s  STRG17: 

RWD  :  ARRAY  [1 .  .NORVt  OP  STRG10  » 

WSYM  :  A®«»Yfl..NCRW‘i  0*  SYMBOL; 

SSYrt  :  ARRAY  [CHARI  OP  SYMBOL; 

LINE  :  P»f,EFD  *?.RA  Y  [1 .  .00]  OE  CHAR? 

l*  *) 

I*  INITIALIZE  THE  SYSTEM  WITH  RESERVED  WORDS',  SYNOD'S,  *) 
(*  SPECIAL  CHARACTERS'  AND  SOME  INITIAL  7  A.LUE  DEFINITIONS  #) 
t  *  *) 


PROCEDURE  INITIALIZE’ 


GIN 

*  INITIALIZE  *) 

?vprn 

= 

'i'n 

0  » 

» 

WS  Y.M  [l] 

RWD  [2] 

= 

'ASC 

/  • 

t 

WSYM 

2l 

RWD  [  T1 

= 

'  a  V  G 

/  . 
f 

WSYM 

:3] 

?WD 

’41 

= 

'BY 

*  * 

* 

WSYM 

A 

RWD 

:s\ 

- 

'CONTAIN 

/  • 

» 

WSYM 

5 1 

RWD 

:*] 

= 

'COUNT 

*  » 
f 

WSYM 

:s] 

PWD 

’VI 

= 

'DELETE 

/  • 
f 

WSYM 

■?] 

RWD 

[3] 

s 

'DESC *  * 

*  • 
f 

WSYM 

[9] 

RWD 

[9] 

= 

'■PROM 

W  • 
t 

WSYM 

[9] 

RWD 

'ten 

SB 

'IN 

W  • 

* 

WSYM 

;i0i 

RWD 

‘111 

= 

'INSERT 

*  • 

* 

WSYM 

[11] 

RWD 

[1?] 

= 

'INTERSECT 

'  • 
t 

WSYM 

[121 

RWD 

ri3i 

= 

'INTO 

W  ♦ 

♦ 

WSYM 

ri3] 

RWD 

[141 

'MAX 

/  Z 

1 

WSYM 

[14] 

RWD 

[1*] 

= 

'MIN 

W  • 

1 

WSYM 

[151 

RWD 

161 

= 

'MINUS 

W  • 

♦ 

WSYM 

;ie] 

P.WD 

:iei 

- 

'NOT 

/  • 
t 

WSYM 

[17] 

RWD 

[ip] 

'OR. 

W  • 
t 

WSYM 

[19] 

CWD 

r19l 

'O^DE15 

W  t 

WSYM 

[191 

RWD 

'20] 

= 

'SELECT 

W  • 

♦ 

WSYM 

[20] 

RV'D 

[21] 

- 

'SET 

W  « 

1 

WSYM 

[21] 

RWn 

r?2i 

= 

'SUM 

*  • 
t 

WSYM  [22] 

anbsym: 

ascsym; 

avgsym; 

pysym: 

contsym; 

cntsym; 

delsym: 

desstm; 

frmsym; 

INSYrN; 

inssym; 

imtrsym; 

INTOSTm; 

ma.xsym; 

minsym; 

minssym; 

notsym; 

orsym; 

ordsym; 

selsym; 

setsym; 

SUMSYiii 


r  r  231 
k -vr  [25] 


SSYM  f ' 

S  SYM  t  ' 


♦  s 

'CN  TON 

/  # 

• 

WSY*4! 

‘23]  ;*  UNI SYM ? 

•  ar 

'7NI0UF 

/  • 

* 

WSYM 

241  :  = 

=  uniosym: 

•  — 

• 

'UPDATE 

0  1 
t 

WSYM 

‘251  : 

=  updsymj 

!* 

0  # 

♦ 

WSYM 

'2«1 

FR.SYM? 

1 

=  »VJS? 

SSYM 

r  -  1 

’  min: 

=  STAR? 

SSYM 

r'/'i 

*  SLASH? 

«  FOL: 

SSYM 

rv'i 

=  lss; 

=■  GTR? 

SSYM 

Si 

«  CLN? 

• 

*  CMA? 

SSYM 

*  PFDJ 

i 

*  LPRN; 

SSYM 

[')'] 

*  RPRN? 

cc  s*  $•:  t, 


end; 


V',-  Ll  ;*  <*:  CH 

*  INITI»LIZ*  *) 


I  *****##  >»>*>* <t *#  -£*#** >;-*#>)<*  *$*£>(« ft#*.**  *$*#$«*£** fc**#**:.!**** #*) 

(*  *) 
:*  ER^OR  MESSAGES  ARE  GIVEN  ON  SYNTAX  TFF0«  AND  Ds  T  A  MANI-  *) 
{*  PULATICN  ERROR.  UCSD  -  PASCAL  I/O  ERROR  VI ILL  GUI1.*  THE  *) 
(*  SYSTEM  »ND  HAS  TO  RTI NI TI AL IZSE .  *) 

(*  •  *) 
(fc##**#**#*******##**^*****#***#*#****#***********######*#*) 


^OCEDIPE  E?FOn: 
PEGIN  •*  TRROR 
CASE  S  CF 
CLN  : 

PHD  : 
IT'rNT  t 
INTCSY^  : 
SETSYM  : 
TYSYM  t 
SOL  : 
GTR  : 
FRMSYy  ; 


*) 

W^ITELN!'*  :  ‘is  exoected 
WRITTEN!'"  .  ’’  Is  expected 
WRITTEN*  'Identifier  is  needed 
W  CITELN* '  ’  IMTO  *  is  excected 
WRITTEN! *"  SET  ”  is  exp°cted 
WR!TTLN( '"  «Y  “  is  expected 
W~ITFLN(  =  ‘is  “xnected 
WRITTEN!'"  v  “  is  ex nec ted 
WRITTEN! '"  FROM  "  is  expected 


'*? 
'IS 
'); 
'  i ; 

'  j; 

*  \  • 
;  i 

'is 


INSYrl 

LPRN 

RPRN 

OUOT 

NBR 

NUL 

end; 

CC  :  =  LL J 
CAST  EFF 


:  WRITTEN! 'CoTparisor  is  expected  ')» 

:  WRITTEN!  '"  (  “  is  expected  ')S 

:  WRITELN!  '"  )  “  is  expected  ''5 

•  WRITTEN! 'This  strine  is  too  Ion#*'); 
t  WRITTEN! 'Nunber  or  quoted  strip*?')? 
:  WRITELN! 'Too  long  for  a  rubber') 

SYM  :  =  NUL!  NO^RR  :*  FALSE? 

0* 


1  :  ^XIT!?R1pP»Rr): 

2  :  exit:stattment) 


TND 


TND* 


P2 


ni—mnrm  iunrugirr 


'*  *) 

'*  MTS'5  PUTTING  THS  USSR'S  REQUEST  IN  A  UNI  BUEFER,  +) 
,  #  THE  SCANNER  WILL  STAN  IT  TOKEN  BY  TOKEN *  *' 

(#  * ) 

PROCEDURE  SCANNER; 

VAR  I,  J.  X;  INTEGER; 

IN BUT  :  STRING; 


PROr?''UR'p  g^tcr; 

BEGIN  (*  GETCH  *) 

I*  OC  *  tL  THEN 
BEGIN 

"or  !  —  '*;  Li  ;=  * ; 

WRITE (  '“=>  ')?  READLN (X ,  IN3U? ) * 

IT  mot  EOE'X)  teen 
BEGIN 

LL  :=  LENGTH; IN^UE I; 

?OR  I  ;=  1  TO  LL  00 
LINE  [II  :=  IN  RUE  fll  * 

LL  ;=  iUi: 

^CR  I  ?=■  LL  TO  P0  DC  LI  NS  [  I J  ;  = 
?ND  Etjt  EXI T '  SC  4MNE? ^ 

end; 

CC  :=  CC*i;  CH  :=  LINE  [CC"1 
'ND; 


BEGIN  (*  SCANNER  *) 

GETCH;  WHILE  CH  =  '  '  TO  GET"?; 

I ?  CH  =  ' ' ' '  THEN 
BEGIN  <*  QUOTED  STRING  *M 

r  ;=  5*; 

gstch; 

WHILE  fCF  O  "")  *  NO  (?<30)  DO 
RrGIN 

X  ;=  K+l t  QUOTED [Xl  :=  CH?  GETCH 

end; 

I v  CH  =  ""  T°EN 

BEGIN  5 V ?*  O'Jor;  CSTR  :=  COPY ( QUOTED, 1 , X }  END 

ELSE  ERROR (OUOT) 

END  ELS? 

BTG!  N 

IF  CH  IN  .  .'Z'l  THEN 

BTGTN 

X  :=  ^ :  XK  :=  W P*SIZr: 

REPEAT 

IE  X  <  V^DSIZE  TUEN 

X  X+l?  WORD [K-1  ;=  CH 


end; 

rt  T'jf'tr 

UNTIL  NOT  (CH  INf'A'.  K 

rn  t-  r* r— 1 : 

IT  i  >  XX  THEN  XX  :=  X 

ELSE  DTpTS-p 

VOR!)  [XX  ]  t  =  '  XX  :  =  xr-i 
UNTIL  XX  =k; 

ID  :=  WORD?  I  :=  15  J  t  =  NOW 
REPEAT 

X  :=  (W)  DI"  2J 

I7  ID  <r=  RWDrxi  T77N  J  t=  X-l; 

I7  ID  >=  RW^rxl  ?H7N  I  :=  7+l 
UNTIL  I  >  J 5 

IT  1-1  '>  J  THEN  SYv  :=  *SYM[Xl 
71S7  P7GIN  SYM  *=  i^nt: 

FOR  I  :=  1  TO  XK  DO  ST?G[I]  :=  ID C I] : 

STS  :=  roPT'STPG.l.XK'  END* 

END  ELSE 

I7  IN  ['!»'.. TPrN 
PEG  IN  {*  NUMBER  *) 

X  :=  ?»;  NUM  ?  =  5 Y^  :=  NPr  : 

REPEAT 

W  :=  1?*\’UM  *  '  0-0(CH)-0?.D( '?')); 

X  E+l;  GETCH 
UNTIL  NOT  (CP  IN  [  '*  ' .  .  '9  '1  )  J 
pr  r=  ^-1 : 

IF  X  >  NMAX  THEN  EP.P.OP. (NUL  > 

TNP  TLSF 
PEG  IN 

IF  CH  =  T7TN 
‘D7jIN  G7Tr'“J 

IT  CH  =  '='  THEN  SYM  :=  LEO 
ELS7  I7  CH  =  'v*'  ?CTN  SYM  :=  N70 

ELSE  3TDTN  CC  :=  CC-1J  SYM  :=  LSS  END 
ENr  ELSE 

IT  CH  =  '*>'  THEN 
77GIN  OETC-; 

IT  CH  =  '='  THEN  SYM  :  =  GEO 
ELSE  E7GIN  CC  r=  CC-l;  SYM  :=  GTR  END 
END  ELSE  SYM  t=  SSYMfCEl 

7N,n 

END 

END*  (*  SCS.VNEP 
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(*  THE  NE7T  T'«r  ?UN!f*TI0NS  WILL  IDENTIFY  TEE  RELATION'S 
t*  mc.  »ND  ‘TTRT’UTE'S  NO. 

(* 


EUNCTION  POSPEL ( s  :  STRING'  t  INTEGER? 

VAR  I  :  INTEGER? 

BEGIN 
I  ?  =  O!; 

REPEAT  I  :  =  1+1 

UNTIL  ll  =  M*X?.EL)  OR  ' RELTBLf II . NAMED  =  *)? 
IT  I  Mft7R*L  TnEN  POSP.EL  I 
ELSE  ERROR '  PELSIM) 

end: 


FUNCTION  PCS  ATT 'VAR  P  :  I '’TEG7?.?  ~  :  ST?  INI) 
BEGIN 

REPEAT  P  :=  P+1 

UNTIL  t  aTTrLf?1  .  ATN  =  ?.)  OR  !?  >  ? +r); 

I?  NOT  ■'?  >  ^+C)  THEN  PCS  ATT  :=  ? 

■7*5?  TRROR/ 4TTSYM) 

end; 


t  «tm?f  To  • 


(* 


(*  THIS  PROCErURE  IS  USEE  TO  LOAD  THE  RELATIONSHIPS  *) 
(*  INVERTED  EIL^S  INTO  MAIN  MEMORY .  SINCE  THE  RELA-  *) 
I*  TICNS-IPS  r>ONT*IN  NGM?^S  ONLY,  THIS  WILL  OCCUPY  *) 
(*  LESS  vEMO?.Y,  MUCH  LESS  TH*  N  THE  ASSOCIATE!)  B*TA.  *) 
{*  PHCCETURES  ARE  AVAILABLE  IN  USER'S  M.iNU*L  *) 


*) 


»•» %*»  U.  <A» A  ^%v  ■J. «k  J. X •».  J»  J.  *4JU  4»  J.  JL  O  VJ.  J.4.  V. <A« >>•  «••  -Am  J.  A  J<  J»  *•"  **• »'»  **•%*•  t 


*Donrr,nTTT>r  povpftTjv* 

.  .IVL  ■  t/uu-  i  :i  A  A  ♦ 

VAR  I  ,  J,  X  :  INTEGER? 

PROCEDURE  PEL; 

PROCEDURE  ATTDESC;  '*  •TTRI3UT?  DESCRIPTIONS  *) 

BEGIN 

IE  SIM  =  I DENT  THEN 
P^GIN 

WITH  RELT2L[J]  DO 

B  EG  I M  B  :=  3»SE;  C  :=  SIZ*  END? 

?  :=  ,°;  E  :=  P0S'TT'?,STR)  i 
S  CAN*’??  J 

jt'3vm'=  nyt  <j>utm  5  0  s  N  N tR  ELSE  TRRC?JCM»); 

IE  ST?.  =  'KEY'  THEN 
WITH  *TTBL  [K1  DO 

BEGIN  ST AT  :=  KEY »  A DDR  :  =  0  END 


as 


rv?Y''  OR  (SIR  =  'RETR  ' )  THEN 


_  ■  i  gJMt 


ELS7  IT  fs?r  =  ' 

3  "  r:  t  y 

VITn  »TT~l[r]  nO 

R^OIN  I7  S’r-  =  ^CT^Y*  TFTN  ST'"'  *=  rY7Y 
'‘else  STAT  :=  RET r; 
inns  •=  at 

7nd; 

ENA  ME  :=  CCNCAT(  '#5:  '.RSlTBLEJI  .N*MED): 
RTLM*.MTs»CONC*Tf?N.*MV,  '  ,»TT3L[K]  .  ATN) * 

’-EC  •=  C* 

RTS7T ( *NYR7L  ,RTLNA ME ' : 

WHILE  NOT  EOF'ANYREL)  DO 

TFOIN  SE7K' ANYREL.REC):  GET; ». NYREL) » 

IT  N^T  tof'*NY?2L)  THEN 
*TGIM  A»  ?=  a».  +  i; 

WITH  ‘NY^EL"  DO  IN7T3L  [\  *1  :=  SFTNCt 
REC  :=  EEC+1 
~yn 

7nd: 

WITH  ATT3LCK]  DO  SIZ  :=  AA  -  ADD?.* 

CLOSF(  *NYR7L,LOCK) 

END  ELSE  IF  STR  =  'NONRSTR  '  THEN 
WITH  ATT^L  TRl  l?0 

BEGIN  STAT  :=  NCNRETR*  SDDR  :=  tft  SIZ  :  =  ?  END 
ELSE  ERROR • STSYM ) t 
SC»N\’E7; 

Tt  Sw  =  pm?  TH’N  SINNER  7LSE  ERROR  -  CM  A) ; 

IT  ST-  =  'CK '  THEN  *TTBL  fE] .RIND  :  =  OUO? 

7LS7  IT  STR  =  'N3R'  THEN  ATT3L[K) .FIND  :=  N3R 
7LSr  7RR0R 'ENDSYM ) ; 

I?  CC  LL-1  THEN  SCANNER 

ELSE  BEGIN  V?ITE(  '  '); 

SCANNER  END 
END  ELSE  E?rOP.  (IDT\t^ 

7no; 

PROCEDURE  IDENTIFIER; 

BEGIN 

IF  STM  =  IDENT  TEEN 
BEGIN  I  :=  m? 

ATT-*! [I1 .ATN  :  =  STR* 

SCANNER 

END  ELSE  EPROPf IDENT) 


PROCEDURE  RELDESC;  <*  -ELATION  DESCRIPTIONS  *) 

BEGIN 

IF  SYM  =  IDFNT  THEN 
ttgin 

J  :=  J+i;  RELTBLCJ1  .NAMED  :»  STR* 

PELTTL fJl .BASE  :=  It  SCANNER? 

IF  SYM  *  LPRN  THEN 


S6 


3EGIN  SC*.NNER: 

ID^NTI^I Ep  5 
WHILE  SYM  =  CM A  DO 

*EGIN  SC'M'’TP?  IDENTIFIER  END* 
S^LT^UJl.SIZ*  :=  I-RSLT3L[JI .BASS; 
IE  STM  =  cPpN  THEN 
”pp,GIN  WRTTT(  'Attribute  ');  SCANNER 
END  ELSE  E-BOP.-  F00N^ 

*ND  ^LS'P  ERROR 'LPRN) 

END  ELSE  ERROR f I  LENT) 

end; 

BEGIN  (*  PEL  *) 

PFLDESC; 
i  TT1")  TS  r  ? 

WHILE  SYM  *  I LENT  DC  i^TDESC 
END: 

BEGIN  *  PREPARE  ♦' 

I  :=  9i;  J  :=  o:  E°R  :=  l; 

AA  :=  e;  NC-ERR  :=  TRUE* 

V? I TELN( 'Please  describe  your  Lata  Base'); 

WRITE' 'Relation  '); 

scanner;  rel; 

WPILP  SYM  »  **0 

BEGIN  WRITE ( 'Relation  '); 

scsvnef;  REL 
pnd: 

IF  SYM  O  pop  THEN  ERROR' PRIM 
ELSE  WRIT ELM 

pnp; 


{*  *) 

'*  VERITT C*TI0N  PROCESS  TAKES  PLACE  IN  THIS  PROCEDURE  *) 
'*  FOLLOWING  Twp  OUEP.Y  L®  NGUAGF  GRAMME?. .  AT  THE  SAME  *) 

'*  TIMr  TWO  TABLES  APE  <'RfSTt-T'  jN  ORDER  TO  GIV1*  THE  *) 

(*  INFORMATION  TO  INTE-P?ETEP  WHAT  ®CTION  SHOULD  PE  *) 

(*  TAKEN .  TESY  ARE  SEQUENCE  T®BLE  AND  REFERENCE  TABLE.  *) 
(#  *) 

PPCCEDU'E  STATEMENT: 

VAR  TREE,  TSSC  :  INTEGER; 

SAVSYM  :  SYMPOL: 

S*TRVV  :  RPEREC: 

SAVTBL  :  ARRAY [1.  .MAXREE1  0?  REFP.EC; 

S*MSEC  :  *RR*Y[1 .  .v*-TSYMSl  0?  SYMBOL; 


m 


tis 

•'*  THE  REFERENCE  TABLE  IS  CREATED  BY  THIS  PROCEDURE 

.' » 

O^OCEDUP.F  ENTE^' *  ,3.NUM  t  TNT'EG'pR;  *fC  :  SYMBOL )  ; 
BEGIN 

CX  :  =  OX-1-!; 

WITH  RE7TBL [CX]  BO 
BEGIN 

RNO  :=  »; 

ANC  :=  3? 

EOT  :=  TJ 

gas*  o  o? 

S^TS  :  NAMES  :=  ATTSJ 
CUOT  :  CUCT5  :=  OS??: 

NBR  :  VAL  i=  NUM 
END 

T*KJp 

E\BJ  |*  ENTER  *) 


(*  *) 

;*  THE  FOLLOWING  PRCC3IU3?  GENERATES  THE  *) 

.'*  SEQUENCE  Ti1BL*  *) 

f*  *) 


PRCCEIU PE  GEN'S  :  SYMBOL'; 
^EGIN 

TCP  :  =  ?C?-i; 

SECTBL  [TO?"1  :=  S 
TMB; 


PRCCSBUR2  express; 

VAR  SAVSYM  :  SYMBOL. 


f  * 


PROCEDURE  ‘PIT^T^R*4; 

7A~  SAVSY y  :  SYMBOL; 


?30',x’DURr  arithfact; 

VAR  S»VSY'~  :  SYMBOL; 


PROCEBURE  PRIMLY; 


EXPRESSION  *) 
'*  *?.I!HM  fcTI  C  TERM  *) 
{*  ASITHMATIC  FACTOR  *' 
(*  PRIMARY  *: 


PROCEBURE  UNIC; 

EEOI N  !*  GVIC  *) 

IF  SYM  =  UNIOSYM  TH-:N  SCANNER . 

excess; 

tv  cym  -  3p?,N  T^EN  S"»NNER 


~LS*  r?.R  OR  (?.??.  S'  5 

end;  t *  unic 

-T0I'!  i  *  PRIMARY  *) 

I*  SYM  IV  r*?CSYM.  V4TSYV.  MINSYM,  SUMSYM]  ?R*N 
BEGIN  FUNC  :=  SYM?  SCANNER; 

$tm  s  LPdV  TE^N 
BEGIN  SCANNER?  UN IC 
?MP  RISE  FPROR  f  LPF\'' 

?NO  •'•IS1* 

IF  SYM  =  ITENT  THEN 
BEGI'J  Srs'JNER* 

jt  $YM  -  PRO  TH^N 
BEGIN  I?  C(T'  LL-1  THEN 

begin  scanntf; 

jv  SYy  =  TTrNT  THEN  SCANNER 
ELSE* Tr RC -7 IOTNT > 

ENT  ELSE 

jr  SYM  =  LP-N  mt*Ev 
*^GIN  SCaNN'Ht:  UN  10 
END? 

END  ELSE 

I?  <*w  -  f'wfsY^  T” rN 

BEGIN  FUNC  :=  SY*?  SCANNER? 

T r  5 VH  -  T-Srv  ypr».J 

rrGIN  sc«nner; 

t v  stw  =  ?Tn 
BEGIN  SCANNER? 

tv  5yM  -  vovjj  rpTv  <; C  'WE? 

h S:  rRROR  ?.?RN  }  *" 

ENT-  ELSE  UNIC 
v>in  rj.SE  ■s'RRCR  '  I  PR  S  ' 

ENT  ELSE 

IE~SYM  IN  [CCOT.  N3?1  THEN  SCANNER 
TLST  IF  SYM  =  LPRN  TEEN 
bvoin  s c * ■s’tp^vss: 

"i*  sym  rprn'thes  scanner 

ELSE  E-r0?  '  ~??N ) 

TNP 

SNDJ  •*  PRIMARY  *} 


GIN  ’**  A ~ I Tr r s rT  * ' 

IF  SYM  IN  [PLUS,  MIN]  THEN  '*  UNARY  #*#  CP.  ‘ 

BEGIN  Ss VSTV  :=  SYM:  SCANNER  ’NE; 

?~IM«'Y; 

IE  S !  YS  YM  IN  [PLUS,  MIN'  T^N  0EN'$S75TM) 

D?  •'*  4RITFPRM 


GIN  '*  »RITHT1?RM  *) 

arithfact; 

VRILT  SYM  IN  [ST»?,  SL*SHl  DO 


l'AWSV*!i! 


?CCFL'URr  -ocl: 


CRi»RE 


t>t  opr  Vi  Hi  -  E  SELECT— ^ROM—WHERE 
CLAUSE  IS  FOUND 


’SOCEBU'F  vpcM®?M: 

BEGIN  !*  FROMPRM  *) 

I?  3YM  *  CM* 

B^GIM  S'**NNTB: 

I?  SYM  =  IDENT  THEN 

■a?ijT\  SCaNN7*:  r^jvisr-y 

TN“D  ^LS7  T’?.ROR 1  I^NT ' 

ENL 

?MU;  f*  t-ov??M 


RCCEDUES  Qua?.x3LCCfi  f*  OVERT 

(* 

V*R  SA7R?V  •  R?rEEr‘: 

SAVSYM  :  SYMBOL? 


■avSIN  ,*  OC‘?RT3LOC1C  *) 

IT  sym  =  «?ELSTM  T^FN 

▼▼GIN  TT  :=  !?  *TTS  :=  ['?  ALL  :=  FALSE? 

SCANNER? 

I?  SYM  =  UNICSTM  THrN 

BEGIN  SAY SYM  :=  SYM?  SCANNER  END? 

I?  STy  =  ST*?  THEN  BEGIN  »LL  r  =  TRUE:  SCANNER  END 

else  begin  express:  TEM,r?Yl  :=  3??.; 

VftrjT?  gyv  —  (*Mt  Tjfj 

BEGIN  TT  :=  T?*l?  SCANNER? 

r»*i  •  —  $?•> 

END  ENl? 

jr  3yy  =  F?ySTM  TFEN 

BTGIN  scanner; 

I  S'  STM  =  IE  ' NT  THEN 
BEGIN 

»  :=  PCSH^L '■  STR) ;  '*  RELATION  NO.  *) 

»  :=  ^ELTBLtAl .B*5?:  ?*  B*5E  0?  ITS  »TT  *) 

C  :=  ^vLTBL[A.i  .SIZ"?  (*  =*  0?  ATTRIBUTES  *) 

IF  ALL  THIN  f*  ALL  ATT 'S  NEEDED  IN  INQUIRY  *) 
▼OR  I  s=  T"-l  TO  T-*-C  DO  *TTS  t=  ATTS  *  [Ij 
SIS1"  BFGIN 


?  r=  *: 

FOR  I  :=  1  TO  TT  DO 

*TTS  :=  *TTS  *  r?0S *TT ( ? ,TE^P [I] )] 
END  ? 

ENT-?f  FUNC.  SFTSK 

SANRTV  :=  R^FTBL  frX] ?  CY  :  =  GT-l: 

SCANNER?  FRCMPRM? 

it  syw  =  v??-5Y^  THEN 

"▼▼GIN  S"*NNER?  BOOL? 

CX  :=  CX*1?  RErT3LrCX1  :=  S*J?.5»? 
GTN  ( STLSTM) 


m 


r~.CC  1IU-.1  PREDICATE? 

7*?.  3i7r?P  :  —  THFC? 

S\¥STM  :  STM3CI? 

PPQCEDIPF  71“LT3T>TCI 

*' besin*  ?*'?.» biespec  *) 

IT  5TW  =  5:L3TM  THT'J  CUEFTBLCCE 
TLS'?  Tr  STM  =  1SS  TEEN  LITTJPI* 

3L37  I?  3TM  -  T.0-*-! 

-”CIS’  S^SN*;??.: 

IF  STM  =  LSS  THEN  LITES&L 
FISF  3S5IS 
OU^HTFX??. : 

I?  SIM  =  HPHN  TEES  SC*?i\?- 
?IST  E3RCR r3PRS ) 

?\T. 

TND 

■pj-n;  fzj:  T *  ?7P  *' 

'?SGC2r-n?.B  ccm???ison? 

''0M- ’RISO'J  *■ 

I?  ST?'  =~¥CTSTM  TERM 
■af-JIN  3C*MNT?.? 

IT  S>v  =  rON5TSTv  T“rH  STM  :=  XO«*OS? 

ELSE  IT  STM  =  INST*  T*7N  STM  :=  NOTIN 
ELSE  ERROR  (NOTST**)? 

EUNC  :=  STV:  SCANNER 
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-0 


I?  S' 


LOCFTu?*  Os55?EflI3T; 


f*  pp*'?p  spvj* IPICay ION  LIST 


PrCCFDU'P  rITLS3-?r: 

BEGIN  (*  FIEIPSPEC  *) 

if  sis'  =  f'T*r?  then 
bHtn  sp»ns^p: 

IF  ST*  *  ?5I)  TEEN 
pblS  I?  CC  C  LL-1  THE  * 

IF  ST*  *  IDES?  THEN  3C*SNE? 
t~  S"  «30RJI5tS?' 

’MD: 

EVD 

rv-n  TJ.3T  ?!>?«•< 

?str  '♦‘■pisis-spsc  *) 


?EGI*.!  1  *  o^SF^IIS* 


*% 


?i Fir spec; 


*=I1E  STS'  =  C*«  DO 

P^GIN  »I“LD5s™»  r»;Dt 

IF  ST,*  I"  [ASCST*.  DFSST*1  TEES  SC  AS  NEE 
end:  **  CF*'3--''1XS?  *' 


CCECU-E  isse=?s?-c; 

BEGIN  -  ISSFHTSPFC  *} 

IP  syy  -  tss  T'TS  *! TT? -! * 

TT  $  S'  ? T  p-»w  -  S^IST* 

3ZGIS  OUT '1T3L COST 


INSFE?  SPECIFIC l?IOS  *} 


*HT: 


;  “v  t  v 


'T  *J  ■*!  >  »y  TTVtpTv  VTv*5QT«1  %' 

.  •  •  *  ,  V  «  -  *  *  W  .  =  %  *  *Cv  .  J  _=. 


^ND: 


BEG IS  SC2SSPE:  OUEETBIOC*  END; 
il  rIS~ 

IF  STV  =  IP'.S  TEES 
2"}tv  <; r  •  *:\t~ ; 

TT  5**  =  TSS  ySTTV  TTfr^JT 

ELSE  BEG IS 
CSfSTFX?*: 

T T  sy«  -  fsrp«: 

BEGIN  SCANNED? 

vhii?  sy*  is  risr-sT^.  unist*,  *ins3T*] 

BEGIN  SC*SSE=:  50EF.T3ICCS  END 

sij’*  rrgT  T-'Sftp  .fpppij ' 

FN? 

END  rlST 

*  !c?r3???r*  ♦ } 


/  J- 


OCEDGP.E  SETCLLI3?: 

TAP.  S  A.  TRET  :  REFREC! 

J  i  INTEGER: 


STT  CLAUSE  LIST  *) 


PROCEDURE  SETCt*USE» 

?FGIN  {«  SFTOLAUSE  *) 

IF  STM  =  SETSYM  TEEM 
BEGIN  scanner: 

IF  STM  =  IDSNT  THEN 

BEGIN  P  i=  3?  I  :=  POSATT(?,STR) » 

OBJ  :=  ATTBL[I].XIND:  SCANNER: 

IF  SYM  =  EOL  THEM 

BEGIN  FU^C  :=  SYM:  SCANNER: 

IF  SYM  =  LPRN  TRrN 

begin  scanner:  oueryexpr:  gen (log): 

t-p  SYM  =  P.PSN  THEN  SCANNER 
ELSE  ER3CR (RPRN^ 

END  ELSE  EXPRESS 
rND  ELS*1  ERROR  (EOL) 

END  ELSE  ERROR ( IDENT ) 

FND  ELSE  frrorI SETSYM) 

END?  (*  SETCLAUSE  *) 


BEGIN  f*  3FTCLLIST  *) 

SETCLAUSE:  ENTER ( A, I .NUM,?UNC .OBJ) t 
GEN (SETSYM) : 

WHILE  SYM  =  CMA  DO 

3EGIN  SC  ANNE  -  5  SETCLAUSE: 
rNT?R / * ♦! ,NUM,EUNC,OBJ): 

SIN 'SETSYM) 

end: 

FOR  J  :=  1  TO  r7.  DO  SAYTBL[J]  s=  R^FTBL [J]  : 

jpg 7  •=  cx:  cx  :=  c: 

FOR  J* :=  1  TO  TOP’dO  SAESEQfJ]  :=  SEOTBL[J]: 
TSEO  :=  TO?:  TOP  :  = 
end:  t*  SET^LLIST  *) 


BEGIN  **  STATEMENT  *) 

CX  :=  0!  TO?  :=  ERR  :=  2; 

TRE?  :=  0;  TSEO  :=  0? 

IF  SYM  =  INSSYM  THEN 

BEGIN  (•  INSERTION  *) 

scanner: 

IF  SYM  =  INTOSTM  THEN 
BEGIN  SCANNER: 

IF  SYM  =  If^nT  THEN 
BEGIN  SCANNER! 

IF  SYM  =  CLN  THEN 

b*gin  scanner:  inserts?^ 

END  ELSE  ERr'OS (CLN ) 
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END  ELSE  ERROR' I DENT ) 
nsr  ^RECR^INTOSTM' 

'J ID  *S E 

I?  STM  =  UPDSTM  THEM 

B^STN  l*  UPDATE  * ) 

SCANNER? 

I  t  SYM  =  IP'PNT  THEM 

BEGIN  A  z  =  POSREL(STR)?  B  :=  RELT3L  [Al .3ASS? 

C  :=  RELTBL[Al .SIZ*?  SCANNER?  SETCLLIST? 

IE  STM  =  VEERS TM  THEN 
BEGIN  SC»NNER?  BOOL? 

FOR  I  1  TU  TREE  DO 
BEGIN  CX  :=  CX*1? 

R^ET^LfCX]  :=  S* VTPL  Cl  ] 

END? 

EO?  I  !=  1  TO  TSEO  DO 
**GIN  TOP  :=  TOP+1? 

SECTBL  TTOPl  :=  S??SEO[I] 

*NU 

END 

END  ELSE  ERP.OPf  IDEMTD 

mu  ^LS? 

IE  STM  =  PELS!*  THEN 

BEGIN  (*  DELETION  *) 

SAVSYM  :=  SYM?  SCANNER? 

IE  SY^  =  IDENT  THEV 

EDGIN’  8  :*  POSRELv  STR)  ?  *  :  =  REITBL[A]  .BASE 
C  :=  BELTS Lr Al .SIX*? 

'TNTirR  ' 8  .0,f*,*,UNr',N?R  )  ? 

SA7RE?  t=  REETBL FrxT  ?  CX  :=  CX-1? 

S^NN^R? 

IE  SYM  =  VHEBSYM  THEN 
BEGIN  SC*NNE?.?  BOOL? 

"X  ?=  CX*!  ?  HEET3L  [CXl  :=  SAVREF?- 
GFNfS  *VSYM) 

EN? 

END  ELSE  ERROR (I DENT) 

END  ELS? 

BEGIN  (*  INQUIRY  *) 

OUEPYEXPR? 

IE  SYH  =  ORDSYM  THEN 
BEGIN  SCANNER? 

T?  SYM  =  BYSYY  THEN 

*EGIN  SCANNER?  ORDSPHCLIST 
END  ELSE  ERRORS  BYSYfO 

■pND? 

END 

ND?  (*  STSTE^ENT 


'*  UNIT  PARSE  *) 


{  #  &  ) 

(*  THIS  UNIT  IS  US  BE  TO  INTBP.PP.2T  TH2  OS2H  'S  REQUEST  #) 
(#  PY  INTERPRETING  TUB  TABLES  AS  THE  RESULTS  OP  THE  *) 
(*  PARSER  03072  *) 
(*  *) 


UNIT  interpreter; 


INTERFACE 


uses  parse; 


TYPE 


VAR 


RELATION 

= 

RECORD 

N»M* 

t  intfger; 

D3^T 

:  integer; 

SXILL 

:  integer; 

-  SAL 

:  integer; 

MANNQ 

;  INTEGER 

fns: 

CHDR2C 

3 

RECORD 

NAME 

:  INTEGER 

CHN»ME 

?  INTEGER 

SEX 

:  INTEGER 

AG1’ 

:  INTEGER 

end; 

L.M.W, 

E»R*rNO 

* 

• 

INT*8*R5 

TUPLF 

• 

• 

REL»TION 

• 

* 

T»t>LT' 

* 

9 

FIL*  0F 

ration; 

CHDTPL 

• 

• 

FILE  OF 

cherec; 

DST  A , 

ANYDA.TA , 

DTPTDATS 

• 

S  A  LD  *  T  A , 

AGEDATA 

• 

• 

FILE  0? 

integer; 

STP.DST8 . 
NAM^PATA  , 


SFILLDATA « 

MAHNOS  A ?A, 

^DS«T*  . 

S EXDATA  s  FILE  OF  STRING ? 


PROCEDURE  INTRPPTT; 


IMPIEMfNTETlCN 


RNAME. 

DNAME 

• 

STRING? 

SEO 

• 

SYMBOL? 

SETNO, 

SETEEC, 

SETTPL 

• 

0 

STTTUP? 

TEMPS 

• 

* 

ARRAY  [l - -61  OF  SSTTU? 

NEXT 

• 

• 

BOOLEAN? 

PROCEDURE  INTRPRET? 


(*  *  j 

i*  THIS  PROCEDURE  WILL  GIVE  ALL  TEE  TUPLE  NUMBERS  *) 

{*  WHICH  THE  CONDITION  OR  QUALIFICATION  GIVEN  *) 

(*  *) 

1  *-*-*  *  *•  -j I-  -« * j-  -A.  J i I .  /..»..!■  .».  I «.  » -  -« a ■ a.  _ a . *_  ..  _ .....  ..........  ■  .  .... 


PROCEDURE  OONDITION(RNO,ANO,VAL  :  INTEGER?  STAT  i  STATUS? 

EOT, KIND  t  SYMBOL?  OUOTS  :  STRING)? 

TAP  A.  B. 

I.  J  :  INTEGER? 

PROCEDURE  GETTUPIENO f FUN C  :  SYMBOL?  A.  B  :  INTEGER)? 
BEGIN 

SSTTPL  :-  H? 

FOR  J  !=  1  TO  ?  DO 
CASE  EUNC  OF 

IN5>^  :  IE  J  IN  SETP.EC  THEN 

SSTTPL  :=  STTTPL  +  INVT*L[A+J3  ? 

NOTIN  J  IF  NOT  (J  IN  SETREC^  THEN 

SETTPL  :=  SETTPL  *  INVTBL[?+J] 

END? 

END?  (*  GETTUPLSNO  *) 

BEGIN 

WITH  »TTPLt*.NOl  DO 
BEGIN 

DNAME  :=  CONC *T( '#5; % ATN ) ? 

A  :=  *PUR?  B  :=  SIZ 
END? 

IF  NOT  NEXT  THEN 
BEGIN 

CASE  KIND  OF 
N3R  i  BEGIN 

RES ^T 'DAT*  ♦  DNAM-*)  ? 

DARECNO  :=  0?  SETB*C  t-  [  ]? 

WHILE  NOT  EOPn>s?A>  -DO 
BEGIN 

CASE  FCT  C? 

EOL  ?  I*  DATA"'  =  7AL  THEN 
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SETREC  :=  SETREC+[DA-,ECN0+1]  ? 
NEC  :  IT  DATA"  O  VAL  THEN 

SSTRXC:=  SETE2G+ [DAHECNO+ll  * 
LSS  i  I9  D»T»"  <  VAL  TH9N 

SSTEEC:=  SETEECHDA  RBCNO+ll  J 
LEO  :  I?  DATA"  <=  VAL  THEN 

SET?ECt=SETHEC+[EASECNO*l] ? 

GTE  :  IF  DATA"  >  VAL  THEN 

SrTRECt=SETREC* [DARECNO+1] * 

GEO  :  IF  DATA"  >=  VAL  THEN 

SETREGs-SETREC+CDARECNO^l] ; 
INSYA*  :  IF  DAT*"  IN  SSTNO  THEN 

S  ETRE  C ; =S  ET  RE  C  +  [D  AH  EC  N  0 + 1 1  ? 
NOTIN  :  IE  NOT  f DATA"  IN  SET NO )  THEN 

SETREC  :=  SETREC  +  [DARECNO*!] 

9NDt 

GET (DATA);  DAHECNO  :  =  DAHECNO*l 

*nd: 

CLOSE ( DATA. LCCE) 

end; 

OOOT  t  "GIN 

RESET (STRDATA.DNAME) ; 

DAPECNO  :=  *;  SETREC  :=  [  1 ; 

WHILE  NOT  909(STRDATA)  DO 
BEGIN 

GAS?  FCT  C9 

SOL  :  IF  STRDATA"  =  COOTS  THEN 

S^RErt-S^TREC+rDARSCNO+n  J 
NEO  :  IF  STRDATA"  O  OUOTS  THEN 

SETREC  :=SE??.EC-*-  [DARECNO+ll 

rND: 

GET (STRDATA);  DARECNC  :=  DARECNO+1 
end; 

f'LOS9(STRDATa  ,LQrE) 

END 

end; 

IE  -ST AT  =  E9?R)  OR  'ST AT  =  CEEY ) 

THEN  GETTOFLENO(lNSTMfA,B) 

ELS1*  SETTFL  ;  =  SETREC 
END  VLSE 

IE~f  ST  AT  =  F.FTR)  CR  (STAT  =  CSEY)  THEN 
CAS9  ECT  O9 

INSYM  :  GETTUPLEN0?INSYV,A,3); 

NOTIN  :  GETTUPLENO? NOTIN',  A,9) 

END  ELSE 
CASE  ECT  OE 

I NSY1  J  S9TTPL  t  =  S9TR9^; 

NOTIN  :  BEGIN 

SETTPL  :=  H; 

EOE  J  :=  X  TO  HAXTPL  DO 
IF  NOT  (J  IN  SETREC)  TEEN 
S9TTPT»  :=  S9TT?L  +  [J] 
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=  SETTPL 


K  :=  K-U  TEMPS  [V,  : 

end; 

1*  *(■- 

(*  THIS  PEOCEDUPS  GIVES  TEE  RECORD  MUMPER'S)  0?  TEE  *} 

(*  REQUIRED  ATTRIBUTSfS)  WHICH  MEET  TEE  GIVEN  CONDITION  *) 
(*  TEE  RESULTS  WILL  PASS  TO  THE  NEXT  SEQUENCE  (  SEE  *) 

(*  SEQUENCE  AMD  REFERENCE  TABLES  )  OR  BE  PRINTED  OUT  *) 
(*  *) 


PF.OCEDUFE  QUERY ?RNO,ANO:  INT*G!TO: 

VA*  J  :  INTEGER? 

PROCEDURE  PELATEIJ  f*  *INO  IN  RELATION  NO.  1  *) 

BEGIN 

R*S*T/T.4?I'P,RNAME)  * 

IE  'SETTPL  =  [])  AND  >'I  *  TCP)  THEN 
BEGIN  WPITELN ( 'Not  found');  EXIT? INTRPRET)  END 
ELSE 

FOR  J  :=  1  TO  MASTPL  DO 

IT  'J  IN  SETTPL)  »ND  'NOT  EOF (TABLE) )  THEN 
BEGIN 

STTK ?T*PLE,J-1 ) « 

GET (TABLE)? 

WITH  ?4PLX’  DO 
BEGIN 

IE  '1  IN  ATTS)  AND  (NOT  EO? ( TABLE) )  THEN 
IF  I  =  TO?  THEN 
BEGIN 

Stt-pit  f  sj  a 't* a  .N**!^-!  '  I 

GET { NAMED AT A ) » 

L  :=  LENGTH ( N 4 MS DAT 2 ^ ) ! 

STR  S=  CONCAT?  NAMEPATA’"', 

CO?Y(?LNK,I ,23-L)) I 

WRITE (STR) 

END  ELSE  SETREC:-  SETr.EC*  (NA^Fl  ; 

I?  (2  IN  AXIS)  AND  (NOT  EOE(TABLE) )  THEN 
IF  I  =  TOP  TH*N 
BEGIN 

SEES 1 DEPTDATA .DEPT-l ) ; 

GFT?D1??TDAT4  ) »  WRITS:!  DEPT  DAT  A  ~  i  4) 
END  ELSE  SETREC :=  SETREC^  [DEPTl » 

IF  (3  IN  ATTS)  AND  (NOT  EOF? TABLE) )  THEN 
IF  I  =  TOP  THTN 
BEGIN 

SEEK  ? SKI LLD A  TA .SKILL-1); 
GET(SKIUDATA); 

L  :=  LENGTH ( SEIILDAT *  ^  1 1 
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kt>  «; 


STR  i=  CON" AT (  '  '.SSILLDATA*. 

C0?T(^LN5.i.I5-D): 

WP.ITE(STR) 

END  ELSE  SET?EC;=  SETEEC*  (SKILL]? 

I?  (4  IN  ATTS)  AND  (NOT  2C? (TABLE))  THEN 
IT  I  S  TO?  THEN 
B^GI  !i 

"seek  (3ALDATA,  SAL-1)? 

GET? S*IB»T« );  WRITE(SALBATA~  :  6) 

END  ELSE  S1TSEC:=  SETEEC*  [SAL] J 
I?  (5  IN  ATTS)  A«D  (NOT  EOF (TABLE) )  THEN 
IT  I  *  TO?  THEM 
BEGIN 

SEEK  t M4 NNOD  *TA .MANNO-1 ) ? 

GET  *  « 1 NNODA T 4 ) » ¥S I TE ( '  '  ,MANNGBATA~) 

END  ELSr  S’TR^Cs*  SETREC+  [MAN NO] 

end; 

jt  i  =  TO?  THEN  WRITTEN 

END* 

IT  I  O  TO?  THRN 

BEGIN  r  j=  TEMPS [Kl  SETREC  END? 

CLOS  E ( T  ABLE . LOCK ) 

End; 


B3fiCED0RE 
rGIN 


RELATE2? 


(*  FIND  IN  ?ELS TION  NO.  2  *) 


RESET; CHBTBL.RNAME)  ? 

I?  'SETTPL  =  rj)  AND  (t  -  TO?)  THEN 

■c?5iN  ¥HIT*LN( 'Not  founl');  EKIT( INTP.PAET)  END 


ELSE 

70S  J  !=  1  TO  MAXTPL  DO 

IE  J  IN  SETTrL)  AND  'NOT  E^Ef CHDT3L) )  THEN 
??"IN 

SEEK 1 CHDTRL , J~1 ) *  GET ( CHBT^L) • 

WITH  CHDT3L  DO 
BEGIN 

I?  f 6  IN  ATTS I  AND  ( NOT  EOF'CHDTBL) )  THEN 
IE  I  =  TO?  TEEN 
BEGIN 

S?pjr  t s'lM^.iT*  ) ; 

GET( NAMED AT A); 

L  :=  LENGTH  (NAMED 

STR  :=  CONCAT( NAMEDATA". 

rO?T(BLNK,l , 2P-L) }  * 

WRITE  (ST?.) 

END  ELSE  SST?,EC:=  SETEEC*  [NAME); 

IF  (7  IN  ATTS)  AND  (NOT  EOF(CEDTBL) )  TEEN 


I  v  i  =  TO?  Tn-!r.N 
BEGIN 

SEEK  ( CHT-DAT 4 ,  CBN  4MF-1 )  * 
GET( CCDDATA) ? 

L  i=  LENGTH (CHDDAT A"); 


ST?.  :  =  CCNCAT*  CHDBAT.4  , 

COPT ( BLNE.  1 ,2?--L ) } ; 

WRIT'5! ?STR ) 

5  ELSE  3ET?SCi=  SSTEEC4-  [CEN.-HE]; 

I?  (8  IN  ATTS)  AND  ( NOT  20EC5BT3L)\  THEN 

I r  T  =  TO?  T^N 

BEGIN 

SISK 'SEXD*T®. SEX-1 }: 

GST(SETDATA); 

*  L  :=  LENGTH  (SEXD 4  TA~U 

STR  :  =  CGNCATv  '  ' t SFXDATA  ,  )\ 

WRITE 'STB  ) 

END  ELS*  S?TRrf'J=  SETRSC*  [SEX]  J 
I?  ( 9  IN  ATTS '  AND  ( NOT  EC?'CHDT3L})  THEN 
IE  I  =  TO?  TEEN 
PECIN 

gfTjf  (  «<3ED*Ts.  *  AO*— 1 '  « 

GST- AGEDAIA) « 

W-ITE *  GEO  AT  A** :  3 ' 

END  ELSE  SETREC:*  SETP.EC+  [AGE] 

end: 

*  lv  r  =  TO?  TP*N  WRITTEN 

end: 

-  I?  I  C  TO?  THEN 

.  B^GIN  v  ?=  E*i:  TEV?S [E]  r*  SETXEO  END: 

I  *  CLOSE 'C3DTHL. LOCK) 

|  end: 

?  BEGIN  (=5=  OUEPT  *) 

17  I  =  TO?  Tn*N  WRITTEN: 

IE  1  IN  ATTS  TEEN 

BEGIN  RESETS  NAf*EJ) *T  4 »  '*5:NAME'U 

I?  I  =  TC?  THEN  W?.ITE(  '  NANS  ')  END! 

IT  2  IN  »TTS  TH*N 

BEG  I N  RESET  { D-EPTDAT  *  f '*5 :  DEPT  ' ) : 

IT  I  =  TO*  TEEN  W?IT*( 'D*?T  '  *  END: 

I?  3  IN  ATTS  TEEN 

BEGIN  RESET (SXILLB*TA, '*5:3KILL'U 

I?  I  =  TO?  TEEN  WRITS' #  SKILL  ')  EuD: 

IT  4.  IN  »TTS  TH*N 

BEGIN  RESETCSALDATA  » '#5: SAL') : 

I?  I  -  TO’  THBI  W“ITT( '  SAL  END; 

IF  5  IN  ATTS  THEN 

BEGIN  ?*5E??W*NN0D*TA, '*5r«ANN0') : 

;  ir  i  =  tc?  teen  w?.m{'  kasno  ')  end: 

:  tt  c  iv  stTS  T**N 

;  BEGIN  RES E? t NAi'EDA?* .  '*5 ;  I \ME ' ) : 

f  1^1=  TO?  THEN  NRT T -  ( '  ')  END! 

i  I?  ?  IN  ATTS  THEN 

■sp«t«  { rwf'D*Ts  .  '#Pr  CHN*M‘5*‘'’ )  I 

S  IF  I  =  TOP  TEEN  W:  ITE{  '  OHNAf*E 

IF  8  IN  ATTS  THEN 


')  END 


w*r  ***^**f‘,if*««  '.-y ?  ',■  y  ».*  v t  w -y  t  vv  »r»  ,~  >1* nr  »-*^r»A  ^  »^»  v *.«  nr  if  y  <|’  ^r  *m**  t*  -y  v  v  *»«v‘t' «v»»r  § 

js*  =S) 

|*  f«IS  ^orr^OH^  -1 11  TjpuiTp  !>*?*  I*SE  ST  DEBATING  *) 
!*  TEE  INDEX  NUPBSrJS)  IN  THE  RELATIONSHIPS  ?ILE(S).  *) 

(*  *) 


PROCEDURE  UPBATE'VAL.RNG.ANO.T  :  INTEGER?  HNAHE.FNAKZ, 

QUOTS  :  STRING?  OBJ  :  STPSBCLJ  ST  i  STATUS); 
VAR  I.  J.  r.  :  INTEGER: 

BEGIN 

IF  NOT  NEXT  THEN 
BEGIN 

BARFCNQ  :=  0? 

CiSE  OBJ  CE 

;  'fif'JlN 

RESET (AN IDA? A .FNAH?) ? 

I?  ANTD*TA~  =  VAL  THEN  I  3  A  ESC  NO*  1 

ELSE  REPEAT  GET ' ANTBAT A } ? 

3ARFCN0  :=  BAP.ECNC*! 

UNTIL  f ANTDAT A"  =  VAL)  OR 
rEOT/  ANTDAT  A ) ) ; 

IF  NOT  EOF'AHT^ATA)  THEN  I  :=  3  ?ICNC*1 
ELSE  BEGIN 

VRITELN('no  such  entry  found.  Insert?') 
EXIT ( INTRPRE?) 
end; 

'*LQS~?  *N;D»T*  .TO^X) 

end; 

CuCT  :  BEGIN 

I"  S  TREAT  A”  =  QUOTS  TEEN  I  :=  D5?.ECSO*l 
vtct  ptptut  3TRD*TS  ) : 

“  i3ARECNO':='DI?.2CNO*l 
UNTIL  fSTRTATA'*  =  QUOTS)  03 
,E0Ff STRD J?A ) )* 

tv  HOT  E0T,STiD*TM*THEN  I  :=DARSCNC+I 
ELSF  BEGIN 

WRITELSl'No  such  entry  found.  Insert?') 
EXIT^INTF.PBET' 

end; 

CL0S2CST23A.fi. LOCK) 

5«fl 

r?ij  ft  « 

■Ni/f 

END  ELSE 

TftO  J  1  TO  MSTTn?  T>0 

H  J  IUM^C  I  .«  j; 

STTR?ifRN6,‘N0’l): 

17  ?  -  TO?  THEN  rfRITELN*; 'Upiati-s  is  done') 

^NB?  '*  Dpo* 


ulO 


CFCOR”  S-TS”!? 


t  320 IK 

5S 3  ET T  ABLE  •  EH  *  I  * 

WITH  *Tf3I,r*N0l  ^0 
3S0IK 

2FINIM2  :=  CONC.‘TCaMIHE,'.',*TN): 

7  z-  ABBS 
2ND* 

T03  J  ;=  1  TO  **5ZT?I-  DO 

I?  U  IK  SETTPL)  AND  'NOT  EO?(TA3L2)>  THIS 

§225 ■ TABLE . J-l ) *  0ET(TA3L1}? 

WITH  TS3L?~  DC 
CASE  AMO  0? 

1  :  SAME  *=  i: 

2  z  FTCIM 

BEL f E2PT ,  J  ,K , HELMAMS ) * 

DEPT  s=  is  PUTS  ' BEET ,J,T .3ILSAME) 
FSB? 

t  . 

BEL  STILL, J.?.=FL'4AHE); 

STILL  :=  I?  POTS  'STILL. J,E .3SLK**fE 
END? 

4  z 

DEL ' S  AL , 3 . S . 5 2LS Av2 ) ? 

SAL  :  =  I?  PUTS'S’L, J .T.EFLM-ME) 
2nd; 

5  :  3E0IN 

arT  *  ?  -  t * ■>; ;  vr '■ ; 

vj»j vn  ••  t j  J 


S'F^T^T,3 ' :  PUT^  TsrLE; 

?sr; 

CLOSE f TABLE. LOCI' 

wm 

z  320 IK 

E2S2TfCHLT3L.PS.eMBi? 

WITH  *TT-L[*TO]  DO 
3201  S' 

TT¥_fj|  |M7  **  #¥  f  ||#?  ^  *  *7^  1  * 

T  aura 
3KB? 

T  «  =  1  *Q  «#Tf3L  ^0 

‘lV  -  J  IN  SCTTPL^’InB  ffOT  fO'CCH3T3L#>  TEES 
"’lisTCCSm.J*!)?  02TCCHDTBD? 

|TfS 

CASE  AHO  OF 
€  :  ifOIM 


*I?H  I S3  BG 


S1IST- 


3ISIR 

ST  :=  STT3ir?M0l .Sf »Ti 
o-?»j  *=  »mir«xc].iT,is; 

I?  03.:  =  RBB  TH-S 

COR!HTlOSfa*i0.AS0.VAL,S?.7Cf,OBJ,'  '} 
ELSE 

re«»IfIOS,ESO,»!IO.‘*,Sf  ,^C?.0BJ*030TS) 


f-  iMoma i  *) 


•  *  f  *  — 


~HTI 

-  -  V* 

XT|T»; 

3?cm 

S^fTPL  *=  Tw?si*. 

WITH  rT^TrUj1  30 

BESlR  AITS  ;=  NAMES?  QUIslC -UIO,  1X0}  SSB 

^NO; 

3BSIN 

SETT?-  WPSW: 

IRS  :=  -iTTBirjf?' 

SITE  IRS  00 
3I0IN 


#  a 
I  ^ 

i* 


UPDATE  * 1 


ITS 


y.ihiriilfiiiiiiliiLMM^ . •nrfiiiBJM.iffi.t.iihiniiriiiwHnhi  i^iiffliitfiaft.rti:Hm^iiiiffiiitiiiii.T.rirfihnillifliTifiliiffHtifflITiTil 


imM?  .=  C0NCST(  '-**5; '  #?.ELT3L[?N0]  .NAMED)  * 
FNAME  CONS AT ( '“5: ',ATT3L[ANCl .  V?N) » 

ST  •=  »TT,L[AN0l  .STATf 
OBJ  :=  attelEanoi .kind; 

IV  OP  O'  =  NPR  THEN 

UPDATECVAL.RNO.  A  NO, I ,RN AMF, FN AME  t  ' 

,  ST ) 

ELSE  UPDATE??, RNO.ANO. I  ./NAME, FNAME, 

OUOTS  .QUOT.ST) 

END 

TNPt 

CRSYM  :  BEGIN  K  ; *  X-l »  (*  Of;  *} 

TEMPS  [K]  t  =  TEMPS  [K1  +  TEMPS  [K*l] 

^nd; 

ANBSYM  :  BEGIN  K  t  =  K-lf  (*  AND  *) 

T^MPSfKl  .=  T^PS[K3  *  TEMPS 

end; 

tOD  :  BEGIN  (*  ?»SS  THE  RESULTS  TO  THE  NEXT  STEP  *) 
SETREC  j»  TEMPS  [Kl;  K  :=  X— If 
NEXT  :=  TRUE 
END 
END 

UNTIE  I  =  TO? 

END;  ■'*  I NTRPRST  *) 

END.  f*  I NTE???.ETEP  *) 
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(*  $  ) 

(*  THIS  IS  THF  MAIN  PROG? AM  OF  T**F  MI CROD®T»B ASF  SYSTEM .  *) 

(*  THERE  ARE  FOUR  UNITS  l  CREATE;  PER5F?. ,  INTERPRETER,  HELP  )  *} 
'*  TO  PERFORM  THE  THREE  FUNCTIONS  OF  THIS  SYSTEM.  THE  THREE  *) 
{*  ^UNCTIONS  *Rr  :  1.  DATA  RASE  INITIALIZATION  *) 

(*  2.  DAT 4  ?ASr  MANIPULATION  *) 

(+  3.  HELP  FUNCTION  *) 

l*  *) 


PROGRAM  MTCPODAT4; 

USES  PARSE,  INTERPRETER,  CREATE.  HELPS  * 
V»R  CH  :  char; 


REGIN 

RFS^T'X. 'CONSOL’: '';  VRITFINJ 

WRITSLN( 'MICRO  DATA  BASE  SYSTEM');  WRITELN; 

WRITE- 'Command  t  Cfreate.  X'ecute,  H'elo  ->')» 

P.EADf  X,CH)» 

FOR  I  :=  1  TO  2  DO  WRITFLNJ 
CASE  CH  OF 

'C'  J  CREATES;  f*  D»T*  BASE  INITIALIZATION  *) 

'H'  :  HELP  J  (*  HFL?  FUNCTION  *) 

'X'  ?  **GIN  (*  DATA  BAS*  MANIPULATION  *) 

initialize;  prepare; 

ox  :=  ai  CO  0*  x.L  :=  01 
WHILE  NOT  FOF'X)  DO 
■p^GIN 
scanner; 
statement; 

I?  ■ N0TRR )  «ND  (SYM  =  PRD)  THEN  INTRPRET 
END 

*ND 

END 

(*  MICROD AT®  *) 


END. 
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